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* * * CHANGES TO VIR.OSYM * * * 



There are several changes to the VIR.OSYM file that should be made before using the 
ASSEMBLER account. These changes solve problems with the BRANCH -DECREMENTING class 
of instructions. The complete list of these instructions is: 

BD:DDL 
BD:DNL 
BD:HHL 
BD:HNL 
BD:TNL 
BD:TTL 

All but one change requires adding one line to each item. The exception is the 
case where the name of an opcode is changed. Please make the cheinges indicated on 
the attached list - after you have load the ASSEMBLER account! 



GENERAL INSTRUCTIONS 

FOR 

ASSEMBLING PROGRAMS ON THE PC -XT OR PC -AT 



General Information - How to Load It and Use It 



Use EXTREME caution in creating and loading assembly code!!! Improper user written 
assembly code can cause severe problems on your system including loss of data, 
group format errors, and system crashes. Pick Systems cancels ALL warranties on 
any computer system that is running user written assembly code. 

LOADING THE ASSEMBLY ACCOUNT 

The assembler floppies 1 and 2 have an account containing all the necessary files 
to create, assemble and load Pick assembler code for the IBM PC-AT 2.0 and XT 2.0 
releases. Follow these instructions to install and use the assembler account. 

1. Ensure that you have at least 700 frams of disk space available. 

2. Mount the floppy #1 in the A: diskette drive. 

3. Logto SYSPROG and type 'T-ATT' and ensure that the drive did attach. 

4. Type 'ACCOUNT -RESTORE ASSEMBLER'. Load floppy #2 in drive when requested 
and type 'C 

5. Type 'ASSEMBLER' to the 'ACCOUNT NAME ON TAPE' prompt. 

6. Ensure that the account restored properly. 

ASSESMBLING AND LOADING USER SOURCE CODE 

The first step is to LOGTO the ASSEMBLER account. Before attempting to assemble 

source code you must add two items to the ERRMSG file. The form of these items can 

be obtained by typing ADDENDUM 003 at TCL. The Pick assembler for the IBM PC-AT/XT | 

uses the same Pick source code as all other Pick Systems. Use the following i 

instructions to assemble your code. 

I 

1. Load your source code into the file 'VIR.SM'. | 

2. Define the type of assembly (XT or AT) by: 

a. >SET-AT - for AT 

b. >SET-XT - for XT 

3. Use the 'AS' verb to do assemblies. 

a. To assemble one item: >AS itemname 

b. To assemble a list : >GET-LIST listname 

>AS 

4. The assembled ccode is stored according to assembly type: 

a. In file NAT. SMS. AT - for AT 

b. In file NAT. SMS. XT - for XT 

5. Check for Translation (1st pass) assembly errors by: 

>LIST VIR.SM item/s 

The 'asm err' column will show errors. 

6. Check for Optimization and Native Assembly errors (2nd pass) by: 

>LIST NAT.SM item/s 

The 'opt err' and 'asm err' columns will show errors. It is also 
important to check the 'obj siz dec' column to insure the final 
assembled object is NOT more than 2048 bytes. 
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BD:DDL 


001 


P 


002 


G,4,4,8,8 A2;3,A3;3,0,48 


003 0@W1 


004 


MOV @B1(2),CX 


005 


XCHG CH,CL 


006 


LDA @B2(2) 


007 


XCHG AH,AL 


008 


SUB AX,CX 


009 


MOV CX,DX,SAVE 


010 


XCHG CH,CL 


Oil 


MOV CX,@B1(2) 


012 


MOV @B1,CX 


013 


XCHG CH,CL 


014 LDA @B2 


015 


XCHG Afl,AL 


016 


SBB AX,CX 


017 


SUIS 0,CX 


018 


XCHG CH,CL 


019 MOV CX,@B1 


020 0@C1 


021 


OR DX,DX 


022 


0@C3 


023 0@L1 JUS @03 


024 0@L2 EQU * 


BD:DNL 


001 


P 


002 


G, 4, 12,8,8 A2;3,0,44,X'C1' 


003 


0@W1 


004 


MOV @B1(2),CX 


005 


XCHG CH,CL 


006 


MVI X'@A(02;CVX;CDL)',AX 


007 


MVI X'@A(02;CVX;CDH)',DX 


008 


SUB AX,CX 


009 


MOV CX,AX SAVE 


010 


XCHG CH,CL 


Oil 


MOV CX,@B1(2) 


012 


MOV @B1,CX 


013 


XCHG CH,CL 


014 


SBB DX,CX 


015 


SUIS 0,CX 


016 


XCHG CH,CL 


017 


MOV CX,@B1 


018 


0@C1 


019 


OR AX, AX 


020 0@C3 


021 


0@L1 JUS (303 



ADDITIONAL LINE 



ADDITIONAL LINE 



022 0@L2 EQU * 

BD:HHL 

001 P 

002 G,4,4,8,8 A2;3,A3;3,0,9 

003 0@W1 

004 LDAB @B2 

005 SUBB AL,@B1 

006 SUIB 0,@B1 ADDITIONAL LINE 

007 JCS @C0,@03 



(OVER) 



BD:TTL 

001 P 

002 G,4,4,8,8 A2;3,A3;3,0,21 

003 0@W1 

004 MOV @B1,CX 

005 XCHG CH,CL 

006 LDA @B2 

007 XCHG AH,AL 

008 SUB AX,CX 

009 SUIS 0,CX ADDITIONAL LINE 

010 XCHG CH,CL 
Oil MOV CX,@B1 
012 JCS @C0,@03 
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BD:HNL 

001 P 

002 G,4,4,8,8 A2;3,0,0,7 

003 0@W1 

004 SUIB @02,@B1 NEW OPCODE IS "SUIB", ORIGINAL WAS "SBIB" 

005 SUIB 0,@B1 ADDITIONAL LINE 

006 JCS @C0,@03 

BD:TNL 

001 P „ 

002 G, 4, 12,8,8 A2;3,0,18,X'C2' I 

003 OgWl ' 

004 MOV @B1,CX 

005 XCHG CH,CL 

006 SUI @02,CX 

007 SUIS 0,CX ADDITIONAL LINE 

008 XCHG CH,CL 

009 MOV CX,@B1 

010 JCS @C0,@03 
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CHAPTER 1 
THE ASSEMBLER 



THE PICK SYSTEM 
USER'S ASSEMBLY MANUAL 



PROPRIETARY INFORMATION 

This document contains information which is 
proprietary to and considered a trade secret of 
PICK SYSTEMS It is expressly agreed that it shall 
not be reproduced in uihole or part< disclosed^ 
divulgedf or otherwise made availble to any third 
party either directly or indirectly. Reproduction 
of this document for any purpose is prohibited 
without the prior express written authorization of 
PICK SYSTEMS. All rights reserved. 
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PICK ASSEMBLY LANGUAGE 



I I I 



THIS MACHINE IS NOT WELL SUITED TO USER WRITTEN ASSEMBLY CODE' 

User written assembly code is NOT SUPPORTED by PICK SYSTEMS. Time 
spent locating user problems that are found to be caused by user 
assembly code will be billed to the user! 



r 
r 

r 



PICK SYSTEMS normally assumes responsibility for assuring the 
compatible coexistence of the total computer system. This is based on \r 
extensive planning and qualification testing of each component and of il 
the integrated system. Because user written assembly code can bypass 
and disrupt normal software integrity controls* PICK SYSTEMS cannot 
ensure system integrity* compatibility* or performance once the user 
adds assembly language programs to the system as supplied by PICK 
SYSTEMS. 

The PICK Virtual Assembly Language includes a wide range of very 
powerful constructs. It has many instructions designed specifically 
for data base management. There is an extensive software machine 
architecture that relies heavily on massive software conventions- 
because of which the virtual machine implementation is very efficient. 
This interprocessor dependence also creates a fragility in the system 
at the assembler code level. The inadvertant destruction of 
conventional interfaces can cause widespread damage to the integrity 
of the system software 
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1.1 PICK ASSEMBLER 

The PICK Virtual Assembler is table-driven. It will translate an 
arbitrary source language into either another source language or into 
object code. The source item» or "mode" is an item in any file 
defined on the database. The mode is assembled in place; that is< at 
the conclusion of the assembly process^ the item contains both the 
original source statements* as well as the generated object code. The 
same mode can then be used to generate a formatted listing <using the 
MLIST verb) or can be loaded for execution (using the MLOAD verb). 

1.2 SOURCE LANGUAGE 

The source language accepted by the PICK Virtual assembler is a 
sequence of symbolic statements* one statement per source— item line. 
Each statement consists of a label field* an operation < or op-code) 
field* an operand field* and a comment field. 

1. 2. 1 LABEL FIELD 

The label field begins in column one of the source statement, and 
is terminated by the first blank or comma* there is no limit on 
its length. If the character "*" appears in the first column* 
the entire statement is treated as a comment* and is ignored by 
the assembler. The reserved characters *+- '= are the only ones 
that may not appear in the label field. An entry in this field 
is optional for all except a feu opcodes. A label may not begin 
with a numeric character. 

1.2.2 OPERATOR FIELD 

The operator is the first non-blank field after either the 
initial blank or string of blanks* or after the blank or string 
of blanks after the label field. The operator string is called 
an op-code. Op-codes are pre-defined in the permanent op-code 
symbol file OSYM and consist of one or more alpha characters. 
Op-codes are usually mnemonics for the intended operation* either 
an assembly directive* an operation to be done .by the target 
machine* or a macro which will expand into several primitive 
operators. Additionally* users may define new mnemonics or 
"macros" which expand into several machine instructions. This 
may be done by creating new entries in the OSYM file. 

i. 2. 3 OPERAND FIELD 

Operand field entries are optional* and vary in number according 
to the needs of the associated op-code. Entries are separated by 
commas and cannot contain embedded blanks (except for character 
string literals enclosed by single quotes). The operand field is 
terminated by the first blank encountered. The characters +-'« 
have special meaning in this field. 
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1.2. 3. 1 OPERAND FIELD EXPRESSIONS 

Entries in the operand field may be a symbols or a constant. 
A symbol is a string of characters that is either defined by 
a single label-field entry in the mode> or is an entry in 
the pre-defined permanent symbol file (PSYM). A constant 
may be one of the following forms: 

* - Defines current value of the location counter. 

N - (n decimal) - A decimal constant. 

X'h' - <h hexadecimal) - A hexadecimal constant. 

C'text'- Character stringj any characters* including 
blanks and commas* may appear as part of 
"text"i a sequence of two single quotes ('') 
is used to represent one single quote in the 
text. 

Arithmetic operators (+»-) may be used to combine two or 
more constants. 

1. 2. 4 COMMENT FIELD 

Any commentary information preceded by a blank may follow the 
operand field entries. 



NOTE: 

For the purposes of the remainder of this documentation* the label 

field entry* op-code field entry* and operand field entries will be 

refered to as "argument field" (AF) 0* 1* 2 respectively. 



r 
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1.3 ASSEMBLING SOURCE CODE : 'AS' VERB 
FORMAT: 

I AS filename itemname {(options} 



The 'AS' verb will assemble the item in the file specified. 



OPTION 
Q 

L 
P 



MEANING 

specifies that error lines are not to be listed 

at the end of the assembly. 

generate a listing (equivalent to the MLIST verb) 

during assembly. 

routes listing to line-printer. 



As the assembler processes. it will output an asterisk (*) as every 
ten source statements are assembled. At the end of pass-1 a new line 
is started and an asterisk is printed for each ten statements 
reassembled. 



1.4 LISTING ASSEMBLY PROGRAMS : 'MLIST' VERB 



FORMAT: 



MLIST filename itemname {(options> 



Options are separated by commas: 



OPTION MEANING 

P routes output to the line-printer. 

M prints macro-expansions of source statements. 

E prints error lines only; also suppresses the pagination 
and enters EDIT at the end of the listing. 

S suppress listing of the object code. 

N-m restricts listing to line numbers n through m inclusive 



The listing is output with a statement number. location counter, 

object code and source code, with the label, op-code, operand and 

comment fields aligned. A page heading is output at the top of each 
new page. 

Errors, if any. appear in the location counter/object code area; 
macro expansions appear as source code with the operation codes 
prefixed by a plus sign (+). 
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1. 5 LOADING ASSEMBLED MODES : 'MLOAD' VERB 

FORMAT: 

! MLOAD filename itemname <<options> 



The assembled mode is loaded into the frame specified by the FRAME op- 
code statement. 

OPTION MEANING 
N returns check-sum data without loading item. 

V verify mismatches and errors only. 

If the load is successful^ the message; 

C2163 MODE 'item-id' LOADED; FRAME = nnn SIZE = sss CKSUM = cccc 

is returned* where 

nnn is the 3-digit number of the frame into which the mode 

has been loaded. The number nnn is expressed in decimal. 

sss is the number of bytes of object code loaded into the 
frame* expressed in hexadecimal <base 16) notation. 

cccc is the byte check-sum for the object code in the loaded mode. 

The mode will not load correctly if its size exceeds 512 bytes* or if 
a FRAME statement is not the first statement assembled in the mode. 
In either case* a message will be returned indicating the error. 
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1.6 VERIFYING A LOADED PROQRAM MODE : 'MVERIFY' VERB 

FORMAT: 

! MVERIFY filename itemname {(options} I 

After assembling and loading a program* the verb MVERIFY is used to 
check the assembled program against the loaded program. 

OPTION MEANING 

A output columnar listing of all mismatches. 

E output errors only. 

P direct output to the printer. 

EXAMPLES: 

>MVERIFY SM EXAMPLl ZCRl 

C2173 MODE 'EXAMPLl' VERIFIED FRAME = 34 SIZE = 477 

>MVERIFY SM EXAMPL2 CCR3 

014 OC IB 

C2183 MODE 'EXAMPL2' HAS 1 BYTES OBJECT CODE MIS-MATCHES 

The first example verifies* but the second does not. In Example #2, 
the system informs the user that one byte at byte address 14 should 
have a value of OCi not 18. 

An "A" option will cause a columnar listing of all bytes which 
mismatch. Each value in the source file which mismatches will be 
listed* followed by the value in the executable frame. 

EXAMPLE: 

>MVERIFY SM EXAMPL3 (A) CCR3 

LOC XX YY LOC XX YY LOC XX YY LOC XX YY 
014 OC 18 015 13 17 016 OE OD 017 3A 3C 

C2183 MODE 'EXAMPL3' HAS 78 BYTES OBJECT CODE MIS-MATCHES 
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1.7 STRIPPING THE SOURCE CODE : 'STRIP -SOURCE' VERB 
FORMAT: 

i STRIP-SOURCE filename item-list 



The STRIP-SOURCE verb is used to remove the source code from Assembly 
Language programs. This frees large amounts of disc space back to the 
available space pool. Modes with source stripped out out can still be 
verified against the ABS. 

After the verb has been invoked, the user is prompted with: 

DESTINATION FILE: 

The file-name where the stripped object code is to be stored should then 
be entered. 



EXAMPLE: 



>STR IP-SOURCE PROG * CCR3 
DESTINATION FILE-SPROG CCR3 



the file SPROG. 

The first six lines of the source item will be copied without source code 
stripping. Standard Pick Systems convention for source modes has the 
"FRAME" statement in line 1. and other descriptive information in lines 2 
through 6; this information is maintained through the STRIP-SOURCE 
process. 



[ 



[ 
I 
( 
I 

r 
I 
r 

Here the file PROG containing source programs is stripped and copied to I 
the file SPROG. I 



I 
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1.8 CROSS REFERENCE CAPABILITIES : 'CROSS-INDEX' VERB 

FORMAT: 

! CROSS-INDEX filename item-list {(options} I 

THE CROSS-INDEX Verb first clears the CSYM file then updates it by 
item with the external references of that item. 

EXAMPLE: 

>CROSS-INDEX MODES * CCR] 

Would cross index all items of the modes file. An example of what a 
portion of the CSYM file might look like after using the CROSS-INDEX 
Verb follows. Notice that the item called DLOAD has one external 
reference to LISTFLAG* two external references to RMBIT, etc. 

DLOAD 

001 LISTLFAS 01 RMBIT 02 

002 CHS 01 

003 NNCF 02 

004 CTRi 02 CTR2 MODULO 07 OBSIZE 01 RSCWA 01 SEPAR 10 TO 01 TR 03 

005 BASE 08 DO 01 OVRFLW 01 R15FID 01 RECORD 05 

006 BMSBEG 01 CSBEG 01 ISBEG 02 OBBEG 01S2 02 

007 CS 06 IS 21 OB 05 R14 03R15 06 TS 01 

008 ABSL 02 CRLFPRINT 01 CVDR15 03 CVTNIS 02 GETBLK 01 LINK 01 MBDNSUB 03 
UPDITM 01 WRTLIN 02 

009 AM 02 
010 
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1.8.1 CROSS REFERENCE CAPABILITIES : 'XREF' VERB 

FORHAT: 

! XREF file-name item-list -Ctoptions} i 

The TCL-II XREF Verb uses the CSYM file as updated by the Cross-Index 
Verb for input. XREF then updates the XSYM file in the opposite order 
of the CSYM file. 

EXAMPLES: 

>XREF CSYM * CCR3 
Would cross reference all items of the CSYM file. The sort verb may 
be used after performing X-REF to produce a sorted output. For 
example: 

>SORT XSYM REFERENCES NONCOL <P) CCR3 

Would produce an alphabetical non-columnar listing on the line 
printer. References and noncol are attribute definitions in the XSYM 
dictionary. 

The following is an example of a partial listing: 

XSYM : ABIT 
REFERENCES ED IT- I 

XSYM : ABSL 
REFERENCES DLOAD 

XSYM : ACF 
REFERENCES WII 

XSYM : ADDLAB 
REFERENCES AST AT 

XSYM : AF 

REFERENCES AST AT WRAP-III EDIT-I 

XSYM : AFBEQ 

REFERENCES AST AT EDIT-I 



r 

r 
r 
r 
r 
[ 
r 



r 
( 
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CHAPTER 2 
MACHINE INSTRUCTIONS 



THE PICK SYSTEM 
USER'S ASSEMBLY MANUAL 



PROPRIETARY INFORMATION 

This document contains information which is 
proprietary to and considered a trade secret of 
PICK SYSTEMS It is expressly agreed that it shall, 
not be reproduced in whole or part, disclosed, 
divulged, or otherwise made availble to any third 
party either directly or indirectly. Reproduction 
of this document for any purpose is prohibited 
without the prior express written authorization of 
PICK SYSTEMS. All rights reserved. 
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PICK ASSEMBLY LANGUAGE 

This section lists PICK machine instructions and describes their 
execution. For each assembler mnemonic. a list of the different 
permutations of the instruction is given. 

Some assembly instructions are actually macros uhich expand to more 
than one opcode* and many of the instructions use elements not 
explicitly defined in the instruction. In particular, the accumulator 
and R15 are used by many of the macros. 

In defining the op-codes the following set of symbolic operands are 
used: 

SYMBOL MEANING 

b BIT. A bit addressed relativly via a base register and a bit 
d isplacement. 

c CHARACTER. A byte addressed relatively via a base address 
register and displacement. (Also known as a CHR. ) 

d DOUBLE-TALLY. A 4-byte field addressed relatively via a base 
register and displacement. 

e QUAD-TALLY. A 8-byte field addressed relatively via a base ■ 
register and displacement. (Also known as a DTLY. > 

f TRIPLE-TALLY. A 6-byte field addressed relatively via a base | 
register and displacement. (Also known as a FTLY. ) 

h HALF-TALLY. A 1-byte field addressed relatively via a base I 
register and displacement. (Also known as a HTLY. ) ' 

1 LABEL. A label definition local to the current program frame. | 

m MODE-ID. A 16-bit modal identif icaton. comprised of a 4-bit 

entry point and a 12-bit frame number. r 

n LITERAL. A literal or immediate value. The size of the 
assembled literal or value is dependent on the instruction in 
whichthe"n"isused. 1 

r ADDRESS-REGISTER. One of the sixteen Reality address registers 

(A/R's). I 



STORAGE REGISTER. A 6-byte field addressed relatively via a base 
register and a 16-bit word displacement. 

TALLY. A 2-byte field relatively addressed via a base register 
and displacement. (Also known as a TLY. ) 



r 
r 
r 
( 
( 



t 
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2. 2 ARITHMETIC OPERATIONS 

The following operations perform arithmetic on binary integers. 
Negative values are represented in two's complement form. One-byte 
and tuio-byte operands are sign extended to form a double word value 
before the operation is performed. The accumulator is a four-byte 
field (DO) for 1» 2 and 4-byte operands; the accumulator is a six- 
byte field (FPO) for 6-byte operands. Storage operands mau not cross 
frame boundaries 

2. 2. 1 Load (LOAD) 

LOAD d LOAD f LOAD h 

LOAD m LOAD n LOAD t 

The contents of the operand are loaded into the accumulator* with the 
high-order bit of the operand propagated left to fill the accumalator 
if necessary. One> two> and four byte operands are loaded into DO; 
6-byte operands are loaded into FPO. 

2.2.2 Load Extended (LOADX) 

LOADX d LOADX h LOADX n 

LOADX t 

The high-order bit (sign bit) of the operand is propagated left until 
there are 48 bits, which are loaded into the 6-byte accumulator (FPO). 

2. 2. 3 Store (STORE) 

STORE d STORE f STORE h 

STORE 5 STORE t 

The contents of the accumulator (HO, TO, DO or FPO) replace the 
p contents of the operand. The accumulator is not changed. 

I 

,, 2. 2. 4 Zero (ZERO) 
I 

I ZERO c ZERO d ZERO f 

ZERO h ZERO t 

i The contents of the operand are replaced by zero. 

I 2. 2. 5 One (ONE) 

ONE d ONE f ONE h 

ONE t 

The contents of the operand are replaced by a one. 
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2.2.6 Add to Accumulator (ADD) 

ADD d ADD f ADD h 

ADD n ADD t 

The contents of the operand are added to the 4- or 6-byte accumulator. 
The result is placed into the accumulator. 

2.2.7 Add Extended <ADDX) 

ADDX d ADDX h ADDX n 

ADDX t 



SUBX t 

Same as for SUB> except that a 6-byte operand is generated by 
extending the sign bit of the original operand* and the result is in 
the 6--byte accumulator <FPO). 



r 

r 

I 

r 
r 



Same as for ADD* except that a 6-byte operand is generated by | 
extending the sign bit of the original operand* and the result is in • 
the 6-byte accumulator (FPO). 



2.2.8 Increment Storage by One <INC) 

INC d INC f INC h 

INC t 

The contents of the operand are incremented by one. 

2.2.9 Add to Storage <INC) | 

INC d* d INC d, n INC f, f 

INC f, n INC h* h INC h,n 

INC t, n INC t. t I 

The contents of the first operand are. incremented by the contents of 

the second operand. i 

2.2.10 Subtract from Accumulator (SUB) » 

SUB d SUB f SUB h 

SUB n SUB t 

The contents of the operand are subtracted from the accumulator. The • 
difference is placed into the accumulator. 

I 
I 

2.2.11 Subtract Extended (SUBX) 

SUBX d SUBX h SUBX n I 



1 

r 

{ 



I 
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2.2.12 Decrement Storage by One (DEC) 

DEC d DEC f DEC h 

DEC t 

The contents of the operand are decremented by one. 

2.2.13 Subtract from Storage (DEC) 

DEC d, d DEC d,n DEC f, f 

DEC f, n DEC h, h DEC h, n 

DEC t,n DEC t. t 

The contents of the first operand are decremented by the contents of 
the second operand. 

2. 2. 14 Multiply (MUD 

MUL d MUL f MUL h 

MUL n MUL t 

The contents of the accumulator are multiplied by the operand. An 
8-byte result is stored in the accumulator and accumulator extension 
(DO and Dl). The sign of the product is determined by the rules of 
algebra* that is> if the accumulator and the operand had the same sign 
before the operation* the result will be positive. Otherwisei the 
result mill be negative. 



o o 



o o 



15 Multiply Extended (MULX) 

MULX d MULX h MULX n 

MULX t 

Same as for MUL* except that a 6-byte operand is generated by 
extending the sign bit of the original operand. 

16 Divide (DIV) 

DIV d DIV h DIV n 

DIV t 

The sign bit of the accumulator (DO) is extended into the accumulator 
extension (Dl) to form a 64 bit dividend. The accumulator is then 
divided by the operand* forming a 32 bit quotient and a 32 bit 
remainder. The quotient replaces the contents of the accumulator and 
the remainder replaces the contents of the accumulator extension. The 
sign of the quotient is determined by the rules of algebra. The sign 
of the remainder is the sign of the dividend. The contents of the 
operand avB not changed. 

Note that the DIV instruction uiith a "f"-type operand is an extended 
divide* see next. 
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2.2.17 Divide Extended <DIVX) 

DIVX d DIVX f DIVX h 

DIVX t 

Same as for DIV> except that a 6-byte operand is generated by 
extending the sign bit of the original operandi the result is in the 
6-byte accumulator <FPO). and the remainder is in FPY. 



z> o 



18 Negate (NEO) 



NEG d NEG f NEG h 

NEC t 

The sign of the operand is changed (two's complement form. > 

I. 19 Move (MOV) 

MOV d, d MOV e, e MOV f, f 

MOV h, h MOV m, t MOV n, d 

MOV n, f MOV n, h MOV n, t 
MOV t, t 

These instructions move a 1- 2- 4- or 6-byte number from one location 
in storage to another. 



i 

i 

I 

r 

( 

r 

r 

( 

I 



CHAPTER 2 MACHINE INSTRUCTIONS Copyright 1987 PICK SYSTEMS 

PAGE 16 



2. 3 CHARACTER INSTRUCTIONS 

2.3.1 Move Character to Character (MCC) 

MCC c, c MCC c,r MCC h, r 

MCC n, c MCC n, r MOV r, c 

MCC r, h MCC r, r 

The byte addressed by the first operand is moved to the byte addressed 
by the second operand. 

2.3.2 Move Character to Incrementing Character (MCI) 

MCI c,r MCI n,r MCI r, r 

MCI s,r MCI 5, s 

The second operand is incremented to point to the next byte in 
storage, and the byte addressed by the first operand is moved to the 
byte addressed by the second operand. 

2.3.3 Move Character Incrementing and Count <MCI) 

MCI n, r.d MCI n, r, h MCI n, r. n 

MCI n, r» t 

The second operand is incremented to point to the next byte in 
storage. The byte addressed by the first operand is moved to the byte 
pointer to by the second operand. This process continues until the 
number of bytes specified by the third operand has been moved. At 
least one byte is always used, and if the third operand is initially 
zero. 65.536 bytes will be moved. This instruction uses the 
accumulator. 

2.3.4 Move Incrementing Character to Character <MIC) 

MIC r, c MIC r. h MIC r. r 

The first operand is incremented to point to the next byte in storage, 
and the byte then pointed to by the first operand is moved to the byte 
addressed by the second operand. 

2.3.5 Move Incrementing Character to Incrementing Character (MID 

Mil r.r 

Both operands are incremented to point to the next byte in storage, 
then the byte pointed to by the first operand is moved to the byte 
pointed to by the second operand. 

Mil r.r.d Mil r, r. h Mil r. r. n 

Mil r.r. t 

Identical to the operation above, with additional functionality. This 
process continues until the number of bytes specified by the third 
operand has been moved. If the third operand is initially zero, no 
data is moved. This instruction uses the accumulator. 
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2. 4 LOGICAL INSTRUCTIONS 

2. 4. 1 Logical Or <0R) 

OR c, n OR h, n OR r, n 

OR r, r 

The byte in storage referenced by the first operand is logically or 'ed 
with the mask byte referenced by the second operand. The byte 
referenced by the second operand is unchanged. 

2.4.2 Logical Exclusive Or <XOR) 

XOR c,n XOR r. n XOR r. r 

The byte in storage referenced by the first operand is logically 
exclusive-or 'ed with the mask byte referenced by the second opeand. 
The byteeferenced by the second operand is unchanged. 

2.4.3 Logical And <AND) 

AND c I n AND n , r 

The byte in storage referenced by the first operand is logically 
and 'ed with the mask byte referenced by the second operand. The byte 
referenced by the second operand is unchanged. 

2. 4. 4 Shift (SHIFT) 

SHIFT r,r 

The byte pointed to by the first operand is shifted right one bit. A 
zero <0) bit is shifted in on the left. The shifted byte replaces the 
byte pointed to by the second operand* or it replaces the original 
byte if only one operand is specified. 



r 
[ 
r 
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2. 5 BRANCHING INSTRUCTIONS 

2. 5. 1 Branch Unconditionally (B) 

B 1 

A branch is taken to the label. The label must reside in the same 
program in the same frame as the branch instruction. 

2.5.2 Enter External Mode <ENT) 

ENT m 

A branch is taken to the entry point specified by the mode-id. The 
high order 4 bits of the mode-id (m) are the entry point number 
(0-15). The remaining 12 bits of the mode-id are the FID of the frame 
to be branched to. 

ENT I ENT# t 

The ENTI* (Enter Indirect) instruction branches to the entry point 
defined by the low order 2 byte of the accumulator (TO). 

ENT» branches to the entry point specified by the operand. The 
operand is loaded into T0< and an ENTI instruction is performed. 

2.5.3 Subroutine Call (BSD 

BSL 1 BSL m 

The BSL (Branch and Stack Location) instruction is used to program 
subroutine calls in assembly language. 

The stack pointer (element RSCWA in the process' PCB) is incremented 
by 4. and the DEBUGGER is entered with a "RTN STK FULL" abort if the 
stack overflows. Otherwise* the address of the instruction following 
the BSL instruction* is moved to the 4-byte field in the process' PCB 
pointed to by the return stack pointer. Next* a branch is taken to 
the entry point (BSL m)* or program label (BSL 1). 

BSLI BSL» t 

BSLI executes a branch and stack location which branches to the entry 
point defined by the mode-id in the low order 2 bytes of the 
accumulator (TO). 

BSL* executes a branch to the entry point specified by the operand. 
The operand is loaded into TO* and an BSLI instruction is performed. 



CHAPTER 2 MACHINE INSTRUCTIONS Copyright 1987 PICK SYSTEMS 

PAGE 19 



2. 5. 4 Return from Subroutine (RTN) 

RTN 

A branch is made to the address stored in the last entry in the return 
stack, and the stack is popped one entry. The stack pointer (RSCWA) 
is decremented by 4» and if it underflows the stack* the DEBUGGER is 
entered with a "RTN STK EMPTY" abort. 

2. 5. 5 Branch character instructions 

All the branch character instructions perform a LOGICAL comparison on 
the two operands, that is. the bytes are treated as unsigned 8-bit 
fields rather than signed two's complement fields. Therefore. the 
lowest character in the range is X'OO' and the highest is X'FF' (the 
segment mark). 

2. 5. 6 Branch Character Equal (BCE) 

BCE c.c.l BCE c.n. 1 BCE c. r, 1 

BCE n. c.l BCE n, r. 1 BCE r. c. 1 

BCE r, n. 1 BCE r. r, 1 

The character (byte in storage) addressed by the first operand is 
compared with the character addressed by the second operand. If the 
two characters are equal, a branch is taken to the label specified by 
the third operand. The label must be inside the same frame as the BCE 
instruction. 

2.5.7 Branch Character Unequal (BCU) 

BCU c.c.l BCUc.r.l BCU n. r. 1 

BCU r, c.l BCU r. n. 1 BCU r. r. 1 

Same as BCE. except that the branch is taken if the two characters are 
unequal. 

2. 5. 8 Branch Character Low (BCD 

BCL c.c.l BCL c.n. 1 BCL c.r. 1 

BCL n. c. 1 BCL n. r. 1 

The byte in storage referenced by the first operand is compared with 
the byte referenced by the second operand. Both bytes are treated as 
8-bit unsigned numbers. If the byte addressed by the first operand is 
numerically less than the byte addressed by the second operand, a 
branch to the label specified by the third operand is taken. The 
label must be inside the same frame as the BCL instruction. 
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2. 5. 9 Branch Character Less than or Equal (BCLE) 

BCLE c, c, 1 BCLE c, m, 1 BCLE c, r* 1 

BCLE n, c» 1 BCLE n* r, 1 BCLE r, c, 1 

BCLE r, n, 1 BCLE r. r, 1 

Same as BCL» except that the branch is taken if the first operand is 
numerically less than or equal to the second operand. 

2. 5. 10 Branch Character High (BCH) 

BCH c,c>l BCH c,n, 1 BCH c,r, 1 

BCH n, c> 1 BCH n, r, 1 

Same as BCL< except that the branch is taken if the first operand is 
numerically greater than the second operand. 

2. 5. 11 Branch Character High or Equal <BCHE) 

BCHE c,c>l BCHE cm, 1 BCHE c,r, 1 

BCHE n, c, 1 BCHE n, r, 1 BCHE r, c, 1 

BCHE r, n, 1 BCHE r, r, 1 

Same as BCH/ except that the branch is taken if the first operand is 
numerically higher than or equal to the second operand. 

2. 5. 12 Branch Character Numeric (BCN) 

BCN r, 1 

If the character pointed to by the register is numeric (i.e, betueen 
"0" and "9" inclusive*) then a branch is taken to the label, which 
must lie inside the same frame as the BCN instruction. 

2. 5. 13 Branch Character Not Numeric (BCNN) 

BCNN r, 1 

If the character pointed to by the register is not numeric, (i.e, not 
one of the characters 0, 1, 2, . . . 9, ) Then a branch is taken to the 
label, which must lie inside the same frame as the BCNN instruction. 

2. 5. 14 Branch Character Hexadecimal (BCX) 

BCX r, 1 

If the character pointed to by the register is hexadecimal, (i.e, in 
the range "O" - "9" inclusive or "A" - "F" inclusive, ) then a branch 
is taken to the label, which must lie inside the same frame as the BCX 
instruction. 
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2.5.15 Branch Character Not Hexadecimal <BCNX) 
BCNX r, 1 

If the character pointed to by the register is not hexadecimal, (i.e, 
outside the range "0" - "9" inclusive or "A" - "F" inclusive* ) then a 
branch is taken to the labeli which must lie inside the same frame as 
the BCNX instruction. 

2. 5. 16 Branch Character Alphabetic <BCA) 
BCA r, 1 

If the character pointed to by the register is alphabetic, (i.e. in 

the range of capital letters "A" - "Z" inclusive, or small letters "a" 

- "z" inclusive.) then a branch is taken to the label, which must lie 

inside the same frame as the BCA instruction. 

2. 5. 17 Branch Character Not Alphabetic (BCNA) 
BCNA r, 1 

If the character pointed to by the register is not alphabetic, (i.e. 

outside the range "A" - "Z" inclusive or "a" - "z" inclusive. > then a 

branch is taken to the label, which must lie inside the same frame as 
the BCNA instruction. 

2. 5. 18 Branch if Zero <BZ) 

BZ c. 1 BZ d. 1 BZ f. 1 

BZ h. 1 BZ s. 1 BZ t, 1 

The branch is taken if the operand has a value of zero (0). 

2. 5. 19 Branch if Not Zero (BNZ) 

BNZ c. 1 BNZ d. 1 BNZ f. 1 

BNZ h. 1 BNZ s. 1 BNZ t. 1 

The branch is taken if the operand has any value other than zero (0). 

2.5.20 Branch if Less than Zero (BLZ) 

BLZ c. 1 BLZ d. 1 BLZ f, 1 

BLZ h, 1 BLZ t, 1 

The branch is taken if the operand has a negative value. 

2.5.21 Branch if Less than or Equal to Zero (BLEZ) 

BLEZ c. 1 BLEZ d. 1 BLEZ f , 1 

BLEZ h. 1 BLEZ t. 1 

The branch is taken if the operand has a negative or zero (0) value. 
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22 Branch if Equal (BE) 

BE d, d> 1 BE d, h. 1 BE d. n, 1 

BE d, t, 1 BE f, f, 1 BE f, n, 1 

BE h, d, 1 BE h, h, 1 BE h. n, 1 

BE h, t> 1 BE m, t, 1 BE n, d, 1 

BE n, f , 1 BE n, h. 1 BE n. t, 1 

BE t, d, 1 BE t, h. I BE t, m, 1 

BE t,n, 1 BE t, t, 1 

The branch to the label is taken if the two operands contain the same 
number. The contents of both operands are treated as two's complement 
integers. If the operands are of the same si2e» and are identical, 
then the branch is taken. Otherwise, the sign bit (highest-order bit) 
of the smaller operand is extended to the left until the operands are 
the same size» and if the two equal size numbers are identical, then 
the branch is taken. 



2.5.23 Branch if Unequal (BU) 



BU 


d, d, 




BU 


d. t. 




BU 


h, d. 




BU 


h, t. 




BU 


n, f 1 




BU 


t, d. 




BU 


t» n. 





BU 


d, h, 




BU 


f , f / 




BU 


h, h. 




BU 


m» t» 




BU 


n* hi 




BU 


t, h, 




BU 


t, t. 





BU d,n. 1 
BU f , n, 1 
BU h/n, 1 
BU n, d, 1 
BU n, t, 1 
BU t, m, 1 

The branch to the label is taken if the two operands contain different 
numbers. Smaller operands will be sign extended, as in the BE 
instruction. 

2.5.24 Branch if Less than (BL) 

BL d, d. 1 BL d,n, 1 BL f, f, 1 

BL f,n, 1 BL h, h, 1 BL n, d, 1 

BL n, t. 1 BL 5, s, 1 BL t. n, 1 

BL t, t, 1 

The contents of both operands are treated as two's complement 
integers. The branch is taken if the number contained in the first 
operand is less than the number in the second operand. 

2. 5. 25 Branch if Less than or Equal (BLE) 

BLE d.d>l BLE d. h, 1 BLE d.m.l 

BLE d,t>l BLE f,f, 1 BLE f , n, 1 

BLE h,d>l BLE h, h» 1 BLE h, n, 1 

BLE h, t, 1 BLE n, d, 1 BLE n, f , 1 

BLE n, h»l BLE n, t, 1 BLE t, d, 1 

BLE t, h.l BLE t, n, 1 BLE t, t, 1 

The contents of both operands are treated as two's complement 
integers. Smaller operands will be sign extended to match the size of 
larger operands. If the first number is less than or equal to the 
second number, a branch is taken to the label. 
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26 Branch if High <BH) 



BH d, d, 1 
BH h, h, 1 
BH t,n, 1 



BH d. n, 1 
BH n. di 1 
BH t, t, 1 



BH f , f , 1 
BH n, t, 1 



A branch is taken to the label if the number contained in the first 
operand is higher than the number contained in the second operand. 
The contents of both operands are treated as two's complement 
integers. 



r 



?. 5. 27 Branch if High or Equal (BHE) 



BHE d, d, 1 

BHE d, t» 1 

BHE h. d* 1 

BHE n, d. 1 

BHE n, t» 1 

BHE t, n. 1 



BHE d. h, 1 
BHE f , f, 1 
BHE h, h, 1 
BHE n, f , 1 
BHE t, d, 1 
BHE t, t, 1 



BHE d, n, 1 

BHE f , n, 1 

BHE h, t, 1 

BHE n, h, 1 

BHE t,h, 1 



A branch to the label is taken if the number in the first operand is 
higher than or equal to the number in the second operand. Both 
numbers are treated as two's complement integers. 



2.5.28 Branch Decrementing Not Zero (BDNZ) 



BDNZ d, d, 1 
BDNZ h, h, 1 
BDNZ t, t, 1 



BDNZ d. 1 
BDNZ t, 1 



BDNZ d,n, 1 
BDNZ t, n, 1 



The first operand is decremented by one» or by the second operand if 
there are three operands. If the first operand is non-zero» then a 
branch is taken to the label. 



29 Branch Decrementing Less than Zero (BDLZ) 



BDLZ d> di 1 
BDLZ h, h, 1 
BDLZ t, t, 1 



BDLZ d> 1 
BDLZ t, 1 



BDLZ d,n, 1 
BDLZ t,n, 1 



The first operand is decremented by one* or by the second operand if 
there are three operands. If the first operand is decremented below 
zero <0). then a branch is taken to the label. 



2.5.30 Branch Decrementing Less than or Equal to Zero (BDLEZ) 



BDLEZ d» d, 1 
BDLEZ h* h, 1 
BDLEZ t, t, 1 



BDLEZ d> 1 
BDLEZ t, 1 



BDLEZ d,n. 1 
BDLEZ t, n, 1 



The first operand is decremented by one. or by the second operand if 
there are three operands. If the first operand is decremented to or 
below zero <0)/ then a branch is taken to the label. 
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2. 6 STRING-HANDLING INSTRUCTIONS 

A string is a series of logically continuous characters in storage/ 
which may extend over linked frame boundaries. String instructions 
can scan or move strings of variable length. Crossing of frame 
boundaries and attaching and detaching of registers used in string 
instructions is handled automatically and is transparent to the user. 

Note that in the event that any of these instructions reaches an end 
of linked frame condition^ there is a special tally called XMODE that 
may be used to intercept this exception condition and perform special 
processing. Usage of XMODE is discussed in the section SYSTEM 
SOFTWARE. If XMODE is zero when an end or beginning of linked frame 
set is reached/ a trap to the DEBUGGER is executed resulting in a 
FORWARD LINK ZERO abort message. 

Some of the string instructions contain an extra literal byte known as 

a "variant. " The variant byte controls the byte-by-byte matching 

against preset delimiters. The format of the variant byte (for all 
instructions except SICD) is as follows: 

BIT MEANING 

(Most significant) 1 = Stop on Match 

= Stop on Mismatch 

1 Compare with X'FF' (SM) 



^ 



X'FE' (AM) 






X'FD' (VM) 






X'FC (SVM) 






character in 


SCO 


5il (>' 


character in 


SCI 


ll^^k 


character in 


SC2 


h'lii" k 



Compare with 

3 Compare with 

4 Compare with 

5 Compare with 

6 Compare with 

7 (Least significant) Compare with 

The most significant bit determines whether the instruction stops on a 
"match" condition (bit is set to "1")* or on a "mismatch" condition 
(bit is "O"). Only those characters whose corresponding bits (see 
table above) are set are checked to determine a match or mismatch. 
The first four characters are the system delimiters; the last three 
characters are variable and reside in the user's PCB. 

Below are examples of variant bytes and their respective match 
conditions: 

VARIANT CONDITION 

X'AO' Stop on attribute mark (X'FE') 

X'FO' Stop on SM/ AM or VM 

X '01 ' Stop on non-blank 

(If there is a blank in SC2) 
X'A4' Stop on AM or contents of SCO 

K^CLj' shp fn ri^f or S c (f 

y'o4' Shp on tnkv-,^_\tk ^ifk ^cf 
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2.6.1 Scan to Delimiter <SID and SDD) 

SID r, n 

This instruction is used to find the end of a string* or to scan a 
string to find the first or last occurrence of a character in the 
string. The register (r) is incremented to point to the next 
character <byte) in storage* and the byte pointed to is checked for a 
match using the variant byte <n). The scan continues until a match or 
mismatch condition* as defined by the variant* is reached. Note that 
the this instruction will alter the position of the register by at 
least one location. 

2.6.2 Scan to Delimiter and Count 

SIDC r, n 



2.6.4 Scan to count or delimiter 

SITD r, n 

This instruction combines the functions of the SIT and SID* in that 
the string is scanned until EITHER a match condition* as determined by 
the variant byte* is reached* OR the count in TO reaches zero. If the 
instruction terminates due to the match condtion being met* the 
difference in the ending and original values of TO gives the number of 
bytes scanned. If TO is zero at the start of the instruction. it 
becomes a NO-OP and the register is not altered. 
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r 
r 
( 
I 



This instruction scans a string from a register to a delimiter* and 
keep a count of the number of bytes scanned. The register is 
incremented to point to the next byte in storage* the louier-order 2 
bytes of the accumulator (TO) are decremented one, and the byte f 
addressed by the register is checked for a match or mismatch condition I 
as defined by the literal variant byte. The process continues until a 
match condition is met* at which time the number of bytes scanned is 
the difference between the value of TO before and after the 
instruction. Note that this instruction will alter the position of 
the register by at least one location. 






3 Scan to Count 

r 

SIT r I 

This instruction scans the register forward the number of bytes r 

specified by the contents of TO. The register is incremented and TO | 
is decremented until TO reaches 0. 

This instruction is logically equivalent to the instruction "INC r* TO" | 

} however* the SIT instruction can be used to force usage of • 
exception mode processing via XMODE <see SYSTEM SOFTWARE for XMODE 

usage) if it reaches the end of a linked frame set. If TO is zero at f 

the start of the instruction* it becomes a NO-OP and the register is I 
not altered. 



t 



2. 6. 5 Move String to Delimiter 

MUD r, r, n 

This instruction is generally used to move a string pointed to by a 
register up to and including the delimiter marking the other end of 
the string. Both registers are incremented by one» and the byte 
pointed to by the first register is moved to the location addressed by 
the second register. The byte moved is then checked for a match* 
using the variant byte. The process of incrementing* moving and 
checking continues until a match condition occurs. Note that this 
instruction will alter the position of the registers by at least one 
location. 

2.6.6 Move string to Delimiter and Count 

MIIDC r» r, n 

This instruction moves a string from one register to the other up to a 
delimiter* and keeps a count of the number of bytes scanned. Both 
registers are incremented by one* and the byte addressed by the first 
is moved to the location pointed to by the second* TO is decremented 
by one. The byte moved is the checked for a match* using the variant 
byte. This process is repeated until a match occurs. The number of 
bytes moved is the difference between the original value of TO and its 
value at the termination of the instruction. Note that this 
instruction will alter the position of the registers by at least one 
location. 

2. 6. 7 Move String to Count 

MIIT T,r 

This instruction is used to move a string of fixed length. TO 
contains a byte count (up to 65*535) defining the number of bytes to 
be moved. If TO is zero when the instruction is executed* no 
operation is performed. Otherwise* the registers are incremented by 
one* the byte addressed by the first register is moved to the byte 
addressed by the second register* and TO is decremented by one. This 
process is repeated until TO reaches zero. 

2. 6. 8 Move String to Register 

MIIR: r»r 

This instruction is used to move a string between the first register 
and R15 to the location addressed by by the second register. The 
first register is checked against R15* and if they are equal* the 
instruction ends. Otherwise* the registers are both incremented to 
point to the next byte in storage* and the byte pointed to by the 
first register is moved to the byte pointed to by the second register. 
The first register is then checked against R15* and the cycle of 
compare* increment* and move is repeated until the first register and 
R15 are equal. Note that if R15 is not forward of and in the same 
string as the first register* this instruction will not terminate. 
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6.9 Move String to Count or Delimiter 

MIITD r» r»n 

This instruction combines the functions of the MUD and MIIT 
instructions. Both registers are incremented and a byte is moved from 
the first to the second register. The louier 2 bytes of the 
accumulator (TO) are decremented by one. If EITHER the byte moved 
matches a delimiter* as defined by the variant byte, OR if TO is 
decremented to O* the instruction terminates. If TO is zero at the 
start of the instruction, it becomes a NO-OP and the register is not 
altered. 



r 
r 
f 
I 
r 
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2.6.10 Scan* Counting Delimiters (SICD) 

SICD r, n 

This instruction can scan a variable number of delimiters. 

The function of the instruction is to position the register at a 
specified point within a data structure containing several levels of 
delimiters in minimial number of instructions. To accomplish this, 
the register pointing to the scanned position is adjusted dependent 
upon the termination mode of the instruction* i. e. The register is 
decremented if the instruction terminates in the abnormal mode. 

The low order 16 bits of the accumulator (TO) contain the delimiter 
count. The referenced register points to the byte preceeding where 
the scan is to be started. The variant byte specifies the scan mode 
and the termination criteria. The scan will unconditionally stop on a 
X'FF' character. 



Variant byte functions: 
BIT 



3 
4 
5 
6 
7 



MEANING 



Bit set if count is to be decremented before 
instruction is started. This form is for ordinal 
positioning. I. e. in BASIC the first attribute within 
a dynamic arra^ (e.g. EXTRACT ( ITEM, 1* 0* 0) is logically 
the beginning of the string. 

Bit is zero if scan is to be terminated when a 
character is found which is greater than the delimiter. 
This format is used when scanning for system level 
delimiters. Logical character compares are used* i. e. 
X'FE' is > X'20'. If bit is set. scan to be terminated 
only when a character is found which is greater than 
the character contained in SC2. Note: if the 
delimiter character is also SC2 the state of this bit 
is not significant. 

Scan delimiter is X'FE' ri ri 

Scan delimiter is X'FD'. VM 

Scan delimiter is X'FC. 5^^ H 

Scan delimiter is contained in SCO. 

Scan delimiter is contained in SCI. 

Scan delimiter is contained in SC2. 



See bit 1 above. 



NOTE: If more than one scan delimiter is specified* 
associated with the highest numbered bit will be used. 



the delimiter 
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Upon termination of the instruction: 



Normal : the count in TO will be zero designating that the specified 
number of delimiters have been counted. The register is positioned on 
the delimiter. If the initial count is zero <or one with bit set) 
the instruction will return immediately. 

Abnormal : the count in TO is decremented for each delimiter found. 
The count remaining in TO will be the number of delimiters which must 
be inserted to create the logical data position. The register 
pointing at the data position is decremented by 1 bytei thus preparing 
for any subsquent string positioning commands. It should be noted 
that this convention allows multiple positioning commands to be 
executed without testing to determine if a data element is nulli that 
is assuming that the element delimiters have a monotonic relationship. 



r 



r 



Examples: 

The following structure is used for discussion. 



EO^El 1 3E12^E2-^E31 3E321 \E3223E4. 



IRal 



!Rb 



Ire 



,'rd 



Re 



Case 1 - Scan to attribute 3 - ENGLISH interface 
R15 is positioned at Ra 



LOAD 
SICD 



AMC COUNT 

SCAN TO AM DELIMITER 



R15, X'20' 
At completion R15 will be positioned to Rd< and TO = 



CASE 2 - Scan to attribute 6 - BASIC interface 
R15 is positioned at Rb 



LOAD 
SICD 



AMC COUNT 

SCAN TO AM DELIMITER 



R15, X'AO' 
At completion R15 will be positioned to Re> and TO 



= 2 



CASE 3 - Scan to attribute 3 / value 2 / subvalue 1 
ENGLISH interface 



LOAD 3 

SICD R15, X'20' 

LOAD 2 

SICD R15, X'90' 

LOAD 1 



AMC COUNT 

SCAN TO AM DELIMITER 

VALUE POSITION 

SCAN TO VM DELIMITER 

SUBVALUE POSITION 

SCAN TO SVM DELIMITER 



SICD R15, X'SB' 
At completion R15 will be positioned to Rd« and TO =: 



CHAPTER 2 MACHINE INSTRUCTIONS 



PAGE 30 



Copyright 1987 PICK SYSTEMS 



r 



CASE 4 - Scan to lO'th occurance of character in SCI; 
stop on any character which is 
greater than the character in SC2. 
<No data shown for this example. ) 

LOAD 10 

SICD R15, X'42' 



2.6.11 Branch on comparing strings; BSTE and BSTU 

BSTE r» T, n, 1 BSTU r^ r, n, 1 

This instruction compares two strings up to a delimiter> and execute 
the branch if the strings are equal. The function of the variant byte 
is to specify a lower boundary for the delimiter that is considered to 
terminate the strings^ that is< any character that is found to be 
logically greater than or equal to the variant byte is considered to 
terminate the string. Note that the strings do NOT have to be 
terminated by the same delimiter! 

Both registers are incremented by one« and the bytes addressed by them 
are compared logically. If the bytes btb equals AND if the bytes are 
logically lower than the variant byte specified in the instruction, 
the increment and comparison is repeated. If the bytes are unequal. 
AND both bytes are greater than or equal to the variant byte, the 
strings are considered equal, and the instruction terminates by taking 
the branch. 

In other cases. the strings are considered unequal. and the 
instruction terminates by falling through to the next sequential 
instruction. 

Note that a three-way branch (equal, low. high) condition on comparing 
two strings can be coded by following. for example. the BSTE 
instruction by a suitable BCL instruction such as: 

BSTE R4. R5. X'FC'.EQUAL 

BCL R5, R4. LOW NOTE INVERSION OF REGISTERS!! 

HIOH EQU » (STRING 1) > (STRING 2) 
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2.7 BIT INSTRUCTIONS 

2. 7. 1 Set Bit (SB) 
SB b 
The referenced bit is set to an "on" <1 or true) condition. 

2. 7. 2 Zero Bit <ZB) 
ZB b 
The referenced bit is set to an "off" <0 or false) condition. 

2.7.3 Branch Bit Set <BBS) 

BBS b, 1 

If the referenced bit is "on" <1). then a branch is taken to the 
label. 

2.7.4 Branch Bit Zero <BBZ) 

BBZ b. 1 

If the referenced bit is "off" <0). then a branch is taken to the 
label. 
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2. 8 REGISTER INSTRUCTIONS 

2.8.1 Load Absolute Difference (LAD) 

.,jJ ff ■ i \ LAD r> r LAD r, s LAD s, r 

t, LAD s* s 
This instruction computes the number of bytes between the byte in 
storage pointed to by the first operand and the byte pointed to by the 
second operand. The result is a non-negative integer in the low order 
2 bytes of the accumulator (TO). 

NOTE: This instruction is valid for unlinked frames only if the 
frames referenced by the two arguments are the same. The instruction 
is valid for unequal frame numbers only if both frames are in the same 
group of contiguously linked frames* and the difference between the 
frame numbers is less than 32. 

2.8.2 Increment Address Register (INC) 

INC r 
The address register is incremented by one causing it to point to the 
next sequential byte. If the resulting address is not in the same 
bufferi then either: 

A crossing frame limits error occurs if the register is in unlinked 
format* or 

An attempt is made to attach the register to the first data byte of 

the frame pointed to by the forward link of the current frame. In 

this case, forward link zero and illegal frame id are errors which can 
be detected if they occur. 

INC r,n INC r, t 

The address register is incremented by n or the number in the tally. 
If the increment causes the register to cross a frame boundary* then 
crossing frame limit, forward link zero or illegal frame id will be 
reported as appropriate. 

2. 8. 3 Decrement Address Register (DEC) 

DEC r 
The address of the register is decremented by one. 

If the register is in linked format and originally pointed to the 
first data byte of the frame and the backward link of the current 
frame is zero* the register attaches to data byte zero of the current 
frame. Otherwise* an attempt is made to attach the register to the 
last data byte of the frame pointed to by the backward link of the 
current frame. Illegal frame id is an error which can be detected in 
this case. 

DEC r, n DEC r, t 

Same as the INC instruction* except that the second operand is 
subtracted from the register address. 



CHAPTER 2 MACHINE INSTRUCTIONS Copyright 1987 PICK SYSTEMS 

PAGE 33 



2.8.4 Increment Storage Register <INC) 

INC 5 INC s, n INC s, t 

The displacement portion of the storage register is incremented by 
one* or by the two's complement integer contained in the second I 
operand. Note that no address errors are detectable. | 

r- 

2.8.5 Decrement Storage Register (DEC) I 

r 



DEC s DEC s,n DEC s. t 

The displacement portion of the storage register is decremented by 
one* or by the two's complement integer contained in the second 
operand. 



2.8.6 Set Register to Address <SRA) 

SRA r, c SRA r» d SRA r. f 

SRA r» h SRA r» 1 SRA r, s 

SRA r, t 

The register is set pointing to the first byte of the second operand. 

2.8.7 Move Register to Register <MOV) 

MOV r,r 
The first operand replaces the second operand. All eight <8) bytes of 
the register are copied. 

MOV r. s 
The effective register of the A/R replaces the contents of the S/R. 
The A/R is not affected. 

MOV s,r 
The contents of the S/R replace the A/R. If the S/R is not legal, 
address errors may be dtected at this time. 

MOV 5, 5 
The contents of the first S/R replace the contents of the second S/R. 
No address errrors are detectable. 

2.8.8 Exchange Register with Register (XRR) 

XRR r, r 
The contents of the two registers are interchanged. All eight (8) 
bytes from each operand are copied to the other operand. 

XRR r, s XRR s, r XRR s, s 

These instructions expand into macros which use R15 and MOV 
instructions. 



I 

r 
f 

r 
f 



I 
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8.9 Setup Register <SETUP) 

SETUP r,t,d SETUPO r, d SETUPl r, d 

The setup instruction is similar to the move storage register to 
address register instruction. The operand one address register is 
'setup' to the implied storage register with the second operand as a 
displacement and the third operand as a frame-id (FID). 

If the SETUPO or SETUPl form is used. the S/R displacement is set to 
zero or one. 
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2. 9 CONVERSION INSTRUCTIONS 

Conversion operations are provided to convert decimal integers 
represented by ASCII characters into binary values, and to convert 
hexadecimal integers into binary values* and binary values to 
hexadecimal. All conversions involve a register string pointer. 
Similar to other string functions* this register points one byte 
before the string. 

2.9.1 Move Binary to Decimal (MBD) 

MBD d,r MBD f , r MBD h, r 

MBD t, r MBD n*d,r MBD n* f , r 

MBD n, h, r MBD n. t, r 

The binary integer in the first operand is converted to an ASCII 
string and stored starting one byte past the byte pointed to by the 
register. If only two operands are present* MBD creates a variable 
length string, storing only the significant digits. If the third 
operand (n) is specified* it contains the number of characters to be 
put in the string. The number will be padded on the left with blanks 
if necessary, and will make the string longer than n characters if 
necessary. 

2.9.2 Move Binary to Hexadecimal <MBX and MBXN) 

MBX c, r MBX d, r MBX f , r 

MBX h,r MBX s, r MBX t, r 

MBX n,d,r MBX n, f , r MBX n, h, r 

MBX n, s, r MBX n, t. r 

MBXN n, d,r MBXN n, f, r MBXN n,h,r 

MBXN n, s, r MBXN n, t, r 

MBX is used to output an ASCII string representing a hexadecimal 
number. The MBX instruction assumes that the low order byte of the 
accumulator <H0) contains the count of the number of characters to be 
output. Bit B7 (high order bit of HO) is set if the string is to be 
padded with leading zeroes. If the third parameter (n) is present, 
the instruction expands into a macro. The macro first loads the 
number n into HO, and sets B7 if the opcodes was MBXN. 

?. 9. 3 Move Decimal to Binary <MDB) 

MDB r, d MDB r, f MDB r, h 

MDB r, t 
The ASCII decimal string pointed to by the register is converted to a 
binary number and stored into the second operand. The register is 
incremented to point to the next byte in storage. The byte is 
examined, and if it is not numeric (in the range "0" - "9" inclusive,) 
the instruction terminates. Otherwise, the second operand is 
multiplied by ten (10) and the binary equivalent of the number pointed 
to by the register is added to the second operand. The process of 
increment, check, multiply and add is repeated until the register 
points to a non-numeric character. 
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9.4 Move Hexadecimal to Binary <MXB) 



MXB r, c 
MXB T, h 



MXB r, d 
MXB T. s 



MXB r, f 
MXB r, t 



The ASCII hexadecimal string pointed to by the register is converted 
to a binary number and stored into the second operand. The register 
is incremented to point to the next byte in storage. The byte is 
examined* and if it is not hexadecimal <in the range "0" - "9" or "A" 
- "F" inclusive* ) the instruction terminates. Otherwise* the second 
operand is multiplied by sixteen <16) and the binary equivalent of the 
numberointed to by the register is added to the second operand. The 
process of increment* check* multiply and add is repeated until the 
register points to a non-hex character. 



9. 5 Move Floating-Point String to Binary (MSDB and MSXB) 

MSDB r MSXB r 

MSDB converts the signed floating point decimal string pointed to by 
the register to a 6-byte binary integer* scales the number up by SCALE 
(in the user's PCB* ) and stores the signed integer result in the 
6-byte accumulator (FPO). MSXB is identical to MSDB* except that it 
converts hexadecimal numbers. 



Both these instructions are macros which first zero DO and 01 
execute a MFD: <MSDB) or MFX: <MSXB) instruction, 
instructions <MFD: and MFX: ) require that: H7 contain 
fractional digit count <0-15) in its low order 4 bits* the high 
4 bits of H7 are as follows: 0) unused 1) numeric found 2) you 
a decimal point 3> sign bit. H6 contains the integer digit 
And that the register points one byte 
converted. FPO is normally zeroed before 
since any value in FPO will be multiplied 
each time a character is converted. 



before the string 
using these instruc 
by 10 (MSDB) or 16 



* then 

These 

s the 

order 

passed 

count. 

to be 

tions* 

(MSXB) 



The string must be at least one digit long* and must be terminated by 
a system delimiter (X'FA' — X'FF'). It may not contain more than one 
decimal point* more fractional digits than are specified in H6* or any 
non-numeric (MSDB) or non-hex (MSXB) characters. A leading plus sign 
(+) or minus sign (-) is legal* and the result in FPO will be negative 
if the string started with a minus sign. If the required number of 
fractional digits are not present* FPO will be scaled upward as 
necessary 

After conversion* the register points to the system delimiter at the 
end of the string* and NUMBIT is set to one (D* unless any of the 
above conditions are violated* in which case the register points to 
the last character converted, and NUMBIT is zero (0). 

During execution of the instruction* H6 is decremented by one for each 
digit found; if H6 goes to zero* the instruction is terminated* with 
the register pointing to the last character converted* and NUMBIT set 
to zero (0). In this case* the fractional digit count is ignored. 
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2. 10 OTHER INSTRUCTIONS 

The follouiing operations are used to communicate with the MONITOR. 

2. 10. 1 Read Input Queue <REAO) 

READ r 

The next character from the terminal input queue replaces the byte 
addressed by the register. If the input queue is empty the process is 
suspended until a character is received from the terminal. Characters 
transmitted by the terminal are automatically queued in the PIB for 
the terminal. 

2.10.2 Write to Output Queue (WRITE) 

WRITE r 

The byte addressed by the register is placed into the terminal output 
queue. If the queue is full, the process is suspended until there is 
room in the queue. 



2.10.3 Release Time Quantum <RQM) 
RQM 

Upon execution of this instruction, the process gets de-activated and 
the next process is selected. This process will be reactivated after 
a small delay. The instruction is useful when you need to wait a 
short period for some external activity. 
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CHAPTER 3 
SUPPORT SOFTWARE 



THE PICK SYSTEM 
USER'S ASSEMBLY MANUAL 



PROPRIETARY INFORMATION 

This document contains information which is 
proprietary to and considered a trade secret of 
PICK SYSTEMS It is expressly agreed that it shall 
not be reproduced in whole or part> disclosed^ 
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without the prior express written authorization of 
PICK SYSTEMS. All rights reserved. 
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3. 1 SYSTEM SOFTWARE 



3. 1. 1 Introduction 

Assembly level programming in the REALITY system is facilitated by a set 
of system subroutines that alloui easy interaction with the disc file 
structure* terminal i/o» and other subroutines. These subroutines work 
with a standard set of addressing registers* storage registers* tallies* 
character registers, bits, and buffer pointers* collectively called 
"functional elements. " In order to use any of these routines* therefore* 
it is essential that the calling routine set up the appropriate functional 
elements as required by the called routine's input interface. 

The standard set of functional elements is pre-defined in the permanent 
symbol file (PSYM)* and is therefore always available to the programmer. 
Included in the PSYM are most of the mode-id's (program entry points) for 
the standard system subroutines. There is no reason that a symbol 
internal to an assembly program cannot have the same name as a PSYM-file 
symbol* if the PSYM-file symbol is not also referenced in that program* 
such symbolic usage cannot be a "forward" reference in the assembly 
program. To avoid confusion* however* it is best to treat the entire set 
of PSYM symbols as reserved symbols. 



3.1.2 Address Registers 

All data referenced in the system is made indirectly through one of the 
sixteen address registers (A/R's). Registers zero and one have 
specifically defined meanings* the other fourteen may be considered 
general-perpose registers* with the limitation that system software 
conventions determine the usage of most A/R's. Registers zero and one 
should never be changed in any way by assembly programs. Register two 
always points to the SCB at logon time and after the debugger or the 
WRAPUP processor has been entered. 

Register zero always addresses byte zero of the process's PCBi register 
one always addresses byte zero of the frame in which the process is 
currently executing. Thus all elements in the PCB may be relatively 
addressed using register zero as a base register. The more conventional 
way of setting up an A/R is to move a S/R into it. For example* the 
sequences below are functionally identical: 

FRMIOO ADDR 0*X'100' DEFINE A LITERAL S/R 

REFERENCIN© FRAME X'lOO' 

MOV FRMIOO* Rl 5 
and 

SETUPO R 1 5* X ' 80000 1 00 ' 
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3. 1. 3 Re-entrancy 



In practiacll 
same copy of 
process. For 
instead the 
this is part 
Quadrenary Co 
via address r 
Control Block 
used by any o 
addressing i 
routines* for 
its use is re 



y all cases> the system software is 
the object code may be used simulta 

this reason* no storage internal to 
storage space directly associated 

of the process's Primary* Secondar 
ntrol Blocks. The Primary Control 
egister zero* the SCB via address 

is used solely by the Debug pro 
ther programs. The Quadrenary Contr 
t* it is used by some system 

example) which temporarily set up a 
served for future software extension 



re-entranti that is* the 
neously by more than one 
the program is utilized* 
with a process is used* 
y. Tertiary <Debug}* and 
Block (PCB) is addressed 
register two. The Debug 
cessor* and should not be 
ol Block has no register 
software (magnetic tape 
register pointing to iti 
s. 



A user program may utilize storage internal to the program if it is to be 
used in a non-re-entrant fashion* however* in most cases it will be found 
that the functional elements defined in the PSYM will be sufficient. 



In some cases it may 
only one process at a 
is using it* and any 
waits for the first 
typical* 



be required to set up a program to be executable by 

time* that is* the code is "locked" while a process 

other process attempting to execute the same code 

process to "unlock" it. The follwing sequence is 





ORG 







TEXT 


X'Ol' 




CMNT 


« 




CMNT 


« 


LOCK 


MCC 


X'00',R2 




XCC 


R2*R1 




BCE 


R2, X'Ol' 




CMNT 


* 




RQM 


* 




B 


LOCK 


UNLOCK 


MCC 


X'01',R1 



INITIAL CONDITION FOR LOCK BYTE 
(NOTE USAGE OF STORAGE INTERNAL 
TO PROGRAM) 

SET "LOCKED" CODE AT R2 
EXCHANGE BYTES AT R2 AND Rl 
CONTINUE 

OK TO CONTINUE* PROGRAM IS NOW LOCKED 
WAIT (RELEASE (3UANTUM) 
TRY AGAIN 

UNLOCK PROGRAM 



3. 1. 4 Work-spaces or Buffers 



There is a set of work-spaces, or b 
available to each process. If the sy 
buffers are maintained* they should 
assembly programming. There are thre 
of equal size* symbolically called th 
at least 3000 bytes in length each 
assigned to a process at LOGON time 
known as the BMS* CS* AF* IB, and th 
140 bytes in length, and are all in 
frame unlinked work-space of 512 byt 
bytes in length which is normally 
Finally there are four additional fr 
unused by the system, and are freely 
by the RPG processor* though. 



uffer areas 
stem convent 

prove adeq 
e "linked" b 
e IS* the OS 
* more spa 
There ar 
e OB* which 

one frame, 
es* and the 
used by th 
ames (PCB+2S 
avai lable. 



that is pre-defined and 
ions with regard to these 
uate for the majority of 
uffers* or work-spaces* 
* and the HS. These are 
ce for each area can be 
e five other work-spaces* 
may vary between 50 and 
There is the TS* a one- 
PROC work-space. 2000 
e PROC processor alone, 
through PCB+31 ) that are 
PCB+28 is used internally 
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Each work-space is defined by a begi 
both of which are storage registers 
TCL level, all these pointers have b 
other levels of processing. the beg 
maintained; the ending pointers may 
The address registers <A/R'5) that ar 
OS/ AF, etc. ) need not necessarily b 
work-spaces; however, specific syst 
associated work-space. Note that, 
pointer addresses one byte before t 
starts. This is because data is usu 
the "move incrementing" type of in 
before the data movement. 



nning pointer and an ending pointer, 
(S/R's). When the process is at the 
een set to an initial condition. At 
inning pointers should normally be 
be moved by system or user routines, 
e named after these work-spaces < IS, 
e maintained within their associated 
em routines may reset the A/R to its 
conventionally, a buffer beginning 
he actual location where the data 
ally moved into a buffer using one of 
structions, which increment the A/R 



Work- 
space 



Location 
(offset 
from PCB) 



Size Linked? Remarks 



BMS 



AF 



(disp. =0) 



50 No 



4 50 No 
(disp. =50) 



Normally contains an item-id when 
communicating with the disc file i/0 
routines; typically, the item-id is 
copied to the BMS area, starting at 
BMSBEG+1; BMSBEG may be moved to point 
within any scratch area. BMSEND 
normally points to the last byte of the 
item-id; BMS (A/R) is freely usable 
except when explicitly or implicitly 
calling a disc file i/o routine 

This work-space is used by any system 
subroutine, though the AF A/R is used 
as a scratch register 






r 



cs 

IB 



4 100 No 
(disp. =100) 

4 0-140 No 
(disp. =200) 



As above 



Used by terminal input routines to read 

data; IBBEG may be moved to point 
within any scratch area before use; 
IBEND conventionally points to the 
logical end of data; 
usable except when 
implicitly calling a 
routine 



IB A/R is freely 
explicitly or 
terminal input 



OB 



4 
(disp. =201 
+IBSIZE) 



0-140 No 



Used by terminal output routines to 
write data. OBBEG and OBEND should not 
be altered; they always point to the 
beginning and end of the OB areai OB 
(A/R) conventionally points one before 
the next available location in the OB 
buffer 



TS 



511 No 



This work-space is not used by the system 
subroutines, other than those 
associated with the Conversion 
processor, though the TS A/R is used as 
a scratch register 
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PROC 



6-9 



2000 Yes 



Used exclusively by the PROC processor 
for working storage; user-exits from 
PROC's may change pointers in this area 



HS 



10-15 3000+ Yes 



IS 
OS 



16-21 
22-27 



3000+ Yes 
3000+ Yes 



Used as a means of passing messages to 
the WRAPUP processor at the conclusion 
of a TCL statement* may be used as a 
scratch area if there is no conflict 
with the WRAPUP history-string formats; 
HSBEG should not be altered; HSEND 
conventionally points one byte before 
the next available location in the 
buffer (initial condition is 
HSBEO=HSEND) 

These work-spaces are used interchangeably 
by some system routines since they are 
of the same size <and are equal in size 
to the HS)j specific usage is noted 
under the various system routines 

ISBEG and OSBEG should not be altered* 
but may be intercanged if neceary; 
initially/ ISEND and OSEND point 3000 
bytes past ISBEO and OSBEG respectively 
(not at the true ional 
work-space is assigned at LOGON time); 
IS and OS A/R's are freely usable 
except when calling systesubroutines 
that use them 



3. 1. 5 Defining a Separate Buffer Area 



If it 

unused frames PCB+28 

used by the RPO processor. ) 

way of setting up an A/R to a scratch buffer 



buffer area that is unique to 



is required to define a 

through PCB+31 may be used. (Note 

The following sequence of instructions 



a process* the 

that PCB+28 is 

is one 



MOV RO* R3 

SETUPO R3, ROFID, 29 DETATCHES & SETS R3 TO BYTE OF PCB+29 



Register three can now be used to reference buffer areas, or functional 
elements that are addressed relative to R3. None of the system 
subroutines use R3, so that a program has to set up R3 only once in the 
above manner. However* exit to TCL via WRAPUP WILL RESET R3 TO PCB+10. 
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3. 1. 6 Usage of XMODE 



In several cases* the multiple-byte move instructions can be used 
when building a table) even when it is not known whether there is 
room in the current linked set to hold the data. Normally* if the 
a linked frame set is reached* DEBUG is entered with a "forward link 
abort condition. However* the tally XMODE may be set up to contai 
mode-id of a user-written subroutine that will gain control under 
condition. This subroutine can then process the end-of-frame cond 
and* by executing a RTN instruction* continue normal proce 
Instructions that can be handled by this scheme are: INC register 

and SCD. Care should be taken in the case of 
in the subroutine. MIIT can be 
in Dl by the debugger before 
via XMODE* therefore* DO should be 



MIC* Mil* MUD* MIIR* 
to save register R15 
accumilator is saved 
transfering control 



handled sin 

it is us 

restored fr 



< say* 
enough 
end of 

zero" 
n the 
such a 
it ion* 
ssing. 
. MCI, 
MIIR 
ce the 
ed in 
om Dl 



before returning from the XMODE trap. 
For example: 



r 



MOV XXX* XMODE SET UP XMODE FOR NEXT 

CMNT * INSTRUCTION 

Mil R12*R13*SR4 COPY FROM R12 TO R13* 

CMNT * TILL R12=SR4 

ZERO XMODE 



r 



!XXX 



# 
OK 



EQU * ENTRY POINT FOR SUBROUTINE 

MOV R15, SRI SAVE R15 

SRA R15*ACF SET TO SAVE REGISTER NUMBER 
BCE X'0D'*R15*0K ENSURE TRAP WAS DUE TO R13 

MOV 0* XMODE PREVENT DEBUG RE-ENTRY* 

CMNT * USE "MOV" TO PRESERVE ACF 

ENT 5*DB1 NO! RE-ENTER DEBUG TO PRINT 

CMNT » "FORW LNK ZERO" MESSAGE 

MOV 500*R13DSP RESET DISPLACEMENT FIELD OF 
CMNT * R13, SINCE FIRMWARE HAS LEFT 

CMNT * IT IN A STRANGE STATE 



» HANDLE END-OF-FRAME CONDITION HERE 
* 

MOV 

BSL 

MOV 

RTN 

CMNT 



R13FID* RECORD SET UP INTERFACE 
GETSPC GET ANOTHER OVERFLOW FRAME 
SR1*R15 RESTORE R15 

♦ RETURN TO CONTINUE EXECUTION 

* OF Mil INSTRUCTION 
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3. 1. 7 Initial Conditions 

At any level in the system^ the following elements are assumed to be set 
up; they should not be altered by any programs: 

MBASE D + Contain the baseH='ID* modulo. and 
liMOD T + separation of the M/DICT associated with 
MSEP T + the process 

USER T Used to indicate the status of the 

process, as follows: 

-1 Indicates the spooler process 

Indicates process not logged on 

1 Indicates the file-restore process 

2 Indicates a process which has been 
logged off. and must release 
work-space and go to MDO 

3 Indicates a process which must go 
to LOGOFF after WRAPUP processing 

5 Indicates normal logged-on process. 



CHAPTER 3 SUPPORT SOFTWARE Copyright 1987 PICK SYSTEMS 

PAGE 45 



3.1.8 Special PSYM Elements 

Certain elements have a "global" significance to the system; 
to those described above> they include the following: 



in addition 



Element 
HO 

H7 



OVRFLCTR 
RSCWA 



H 



H 



INHIBITH H 



D 

T 



Description 



+ Overlay the accumulator and extension; 
+ H7 is the high-order byte of Dl; HO is 
+ The loui-order byte of DO 

+ 

If non zero, the "BREAK" key on the terminal 
is inhibited; used by processes that 
should not be interrupted. Conventionally, any 
process can increment INHIBITH to prevent 
BREAK KEY interuption. The subrouine DECINHIB 
should be used to decrement the inhibit half tally. 

Used by WRAPUP 

Return-stack current word address; 
contains the address one byte past the 
current entry in the stack; the stack is 
null if RSCWA=X'184' 



r 



SYSPRIVl B 



SYSPRIV2 B 



Indicates system privilegesj 
if set 

Indicates system privileges, 
if set along with SYSPRIVl 



level one, 
level two. 



TO 



T3 
XMODE 



T 
T 



+ Overlay the accumulator and extension 

+ 



May be set to the mode-id of a 
subroutine that is to gain control when 
a "forward link zero" condition occurs 
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3. 



DOCUMENTATION CONVENTIONS 



In the system software documentation^ each routine is listed along with 
its entry point <as would be used in a DEFM statement); if the entry 
point is included in the standard PSYM file* it is followed by an asterisk 
<*). Unless otherwise specified* routines are meant to be called as 
subroutines* using a BSL instruction, and they return to the calling 
program via a RTN instruction. Be aware that there is no particular 
reason to believe that the referenced routine currently has the specified 
interface, name or location, or that it exists. 

The Functional Description section for each routine briefly describes the 
action taken. The Input Interface. Output Interface. and Element Usage 
sections describe the functional elements used by the routine. The single 
letter following an element name describes its type: B=bit. C=character. 
H=half tally. Totally <word). D=double tally. F=triple tally. R=address 
register, S^storage register. Even if not specified. the following 
elements may be destroyed by any routine. 



Tallies 
Double Tallies 



T4. T5 

Accumulator and extension <D0. 
Dl). D2 



Registers 
Storage Registers 



R14. R15 



SYSRO. SYSRl, SYSR2 



If no description follows an element name, it indicates that the element 
is used as a scratch element. 

The system delimiters are symolically referred to as follows: 

Hex. Value Name and Description 



FF 
FE 
FD 
FC 
FB 



SM Segment Mark 

AM Attribute Mark 

VM Value Mark 

SVM Secondary Value Mark 

SB Start Buffer 
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3. 3 System subroutines 



3. 3. 1 ATTOVF 

ATTOVF is used to obtain a frame from the overflow space pool and to link 
it to the frame specified in double tally RECORD. The forward link field 
of the frame specified in RECORD is set to point to the overflow frame 
obtained* the backward link field of the overflow frame is set to the 
value of RECORD* and the other link fields of this overflow frame are 
zeroed. 



Input Interface 
RECORD D 

Output Interface 
OVRFLW D 

Element Usage 

R15 R 



Contains the FID of the frame to which 
an overflow frame is to be linked 



Contains the FID of the overflow frame 
if obtained/ or zero if no more frames 
are available 



Utility 



INHIBITH B + 

DO D + Used by GETOVF 

R14 R + 

Subroutine Usage 

GETOVF 

Two additional levels of subroutine linkage required 

3. 3. 2 BLOCK-SUB 

This routine prints block letters on the terminal or line printer. It is 
used, for instance, by the TCL verbs "BLOCK-TERM" and "BLOCK-PRINT"; for 
more information, see the discussion of these verbs in the SYSTEM COMMANDS 
documentation. 



Input Interface 
IS R 



Points one before the first character to 
be output; the end of data is marked by 
the character pair SM Z <no space after 
the SM); if any element in the data 
string contains a SM, it must be 
terminated by a SB <see MDIB 
documentation, "Editing Features") 



ZBIT 



CHAPTER 3 



B 



If set, output is directed to the 
terminal, otherwise output is passed to 
the spooler for line printer listing or 
other use 
SUPPORT SOFTWARE Copyright 1987 PICK SYSTEMS 
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r 



I ' 



[ 
[ 
r 
r 

r 
r 



OBSIZE T Contains the maximum number of 

characters on each output line 

OB R =OBBEG 

SBO B If set* no test for terminal or printer 

output is madet terminal or printer 
characteristics are not initialized* the 
output device is not advanced to 
top-of-form* and the heading is not set 
null; all these actions take place if 
SBO is reset 



AFBEG 


S 


+ 




BHSBEG 


S 


+ 


Point to scratch area 


HSEND 


S 


+ 




LISTFLAG 


B 


+ 




SMC ON V 


B 


+ 




NOBLNK 


B 


+ 




LFDLY 


T 


+ 


As required by WRTLIN 


PAOSIZE 


T 


+ 




PAGSKIP 


T 


+ 




PAGFRMT 


B 


+• 





Output Interface 
OB R 
PAGINATE B 
PAGHEAD S 

Element Usage 



=OBBEG 

= 1 

Points to a null page heading (SM) at 
HSEND if SBO=0 



BITS 


C 


+ 


SCO 


C 


+ 


SCI 


C 


+ 


SC2 


C 


+ 


REJCTR 


T 


+ 


CI 


T 


+ 


CTR16 


T 


+ 


CTR17 


T 


+ 


CTR18 


T 


+ 


CTR19 


T 


+ 


DO 


D 


+ 


Dl 


D 


+ 


BASE 


D 


+ 


MODULO 


T 


+ Utility 


SEPAR 


T 


+ 


IR 


R 


+ 


UPD 


R 


+ 


BMS 


R 


+ 


AF 


R 


+ 


OB 


R 


+ 


CS 


R 


+ 


TS 


R 


+ 


R15 


R 


+ 


SR4 


S 


+ 
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SR22 


S 


+ 








CTRJ 


T 




Used 


by 


CVTNIR 


R14 


R 




Used 


by 


RET IX 


T7 


T 


+ 


Used 


by 


WRTLIN 


SYSRl 


S 


+ 









Subroutine Usage 



r 

r 



RETIX; OEMS if the system file "BLOCK-CONVERT" is found i CVTNIRi T 
WRTLIN; NEWPAGE if required; PRNTHDR if SBO«0} PCLOSEALL and ■ 
SETLPTR if SBO=0 and ZBIT=Oj SETTERM if SB0=1 or ZBIT=1 



r 
r 

BLOCK-SUB exits to WRAPUP <MD995 or MD99) under the following f 



Six additional levels of subroutine linkage required if "BLOCK- 
CONVERT" is a "Q"-code item in the master dictionary, otherwise five 
levels required 

Error Conditions 



conditions 

Error Number Error type 

520 Null input data 

521 Too many characters (more than nine) in 

a word to block 

522 BLOCK-CONVERT file missing or improperly 

defined in the master dictionary 

523 Block output would exceed page width 

524 An input character is not in the 

BLOCK-CONVERT file 

525 An input character is improperly 

formatted in the BLOCK-CONVERT file 



[ 
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3. 3. 3 CONV - CONVEX IT 

These entry points are used to call the entire conversion processor 
as a subroutine^ which will perform any and all valid conversions 
specified in the conversion string. Other entry points may be used to 
perform certain specific conversions. Multilple conversion codes are 
separated by VM's in the conversion string. Conversion is called by 
the ENGLISH pre-processor to perform conversions on "input" data 
(in selection criteria)* and by the LIST/SORT processor to perform 
"output" conversion. 

CONV is the usual mode-id used to invoke conversion processing. 
CONVEXIT is the entry point to which any part of the conversion 
processor returns in order to check if more conversion is required 
(further VM's and conversion codes in the conversion string). 



Input Interface 
TSBEG S 



Points one before the 
converted; the value is 
place"* and the buffer 
scratch space* therefore 



value to be 

converted "in 

is used for 

it must be 



large enoughto contain the converted 
value; the value to be converted is 
terminated by any of the standard system 
delimiters (SM, AM, VM, or SVM) 



IS 



Points to the first character of the 
conversion code specification string for 
CONV; for CONVEXIT, points at least one 
before the next conversion code (after a 
VM) or AM at the end of the string, or 
to the AM; the code string must end with 
an AM; initial semicolons (; ) are 
ignored 



MBIT 



B Set if "input" conversion is to be 
performed; reset for "output" conversion 



DBIT 
DAFl 



B + As required by 
B + documentation) 



TRANSLATE (see TRANSLATE 



XBIT 



B As required by 
documentation) 



CFUNC (see 



CFUNC 



Output Interface 



TSBEO 



Points one before the converted value 



TS R + Point to the last character of the 
TSEND S +• converted value; a SM is also placed one 

past this location; TS=TSEND= TSBEG if a 

null value is returned 



IS 



Points to the AM 
conversion code(s) 



terminating the 



Element Usage 
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Element 




Conversions 


DBIT 


B 


F, T 


XBIT 


B 


F 


0MB IT 


B 


F 


WMBIT 


B 


F 


SBIO 


B 


All 


SB12 


B 


All 


DAFl 


B 


T 


DAF9 


B 


T 


SC2 


C 


C, D, F, T 


T3 


T 


F, MD 


T4 


T 


D, F, MD, MT 


T5 


T 


D, F, MD, MT 


T6 


T 


D,F, M 


T7 


T 


F,MD 


CTRl 


T 


C,F, e, T 


CTR12 


T 


F 


CTRl 3 


T 


F 


CTR20 


T 


All 


CTR21 


T 


D, MD, T 


CTR22 


T 


D 


CTR23 


T 


D, MD 


CTR28 


T 


T 


Dl 


D 


C, F, MT, T 


D2 


D 


D, F, MD. MT 


D3 


D 


MT 


D7 


D 


F 


D8 


D 


F 


D9 


D 


F 


FPO 


F 


F, MD 


FPl 


F 


F,MD 


FP2 


F 


F,MD 


FP3 


F 


F 


FP4 


F 


F 


FP5 


F 


F 


FPX 


F 


F, MD, T 


(SYSRO) 






FPY 


F 


F, MD 


BASE 


D 


T 


MODULO 


T 


T 


SEPAR 


T 


T 


RECORD 


D 


T 


SIZE 


T 


T 


NNCF 


H 


T 


FRMN 


D 


T 


FRMP 


D 


T 


NPCF 


H 


T 


XMODE 


T 


C,F, MT, T 


IR 


R 


T 


BMS 


R 


T 


R14 


R 


D, MD, MT, MX, T 


R15 


R 


All 


SYSRl 


S 


T 


SYSR2 


S 


T 


S4 


S 


T 


S5 


S 


F 


S6 


S 


C,T 


S7 


S 


All 


SRO 


S 


C,F 
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SRI 
SR4 



S 
S 



F 



Subroutine Usage 

CVTHIS for "U" conversionsi GCORR for "G" conversionsi TRANSLATE 
for "T" conversions; CONCATENATE for "C" conversions; additional 
subroutines as used by routines listed under "Exits" beloui^ and by 
user-written routines 

The number of additonal levels of subroutine linkage required depends 
on the conversions performed - see the documentation for the various 
conversion routines for more specific information; note that for "F" 
conversions* CFUNC may call CONV recursively 

User Conversion Processing 

The conversion processor will pass control to a user-written routine 
if a "Uxxxx" code is found in the conversion string, where "xxxx" is 
the hexadecimal mode-id of the user routine. This routine can then 
perform special conversion before returning. The input interface for 
the user routine will be identical to that described in the preceding 
section; after performing the conversion the user routine should set 
up the output interface elements to be compatible with CONVEXIT* and 
then exit via an external branch to that point to continue the 
conversion process if multiple conversions are specified. 
Alternately, a RTN may be executed if this is not needed. or to 
prevent further conversions from being performed. Elements used by 
the regular conversion routines may safely be used by user routines; 
however, if additional elements are needed, a complete knowledge of 
the processor that called CONV <LIST. SELECTION. etc.) will be 
necessary. 

Exits 

To IDATE for "D" conversions on input <MBIT=1); to ODATE for "D" 

conversions on output; to ICONVMD or DCONVMD for "MD" conversion on 

input or output; to CFUNC for "F" conversions; to TIMECONV for "KT" 

conversions; to HEXCONV for "MX" conversions; all these routines, 
however, return to CONVEXIT 

For output conversion, a null value returned causes an immediate end 
of conversion processing. 

Error Conditions 

CONV exits to WRAPUP after setting RHODE to zero under the following 
conditions: 



705 
706 



Illegal conversion code 

Illegal "T" conversion: format 
incorrect. filename cannot be found, 
etc. 



707 



DL/ID cannot be found for a "T" 
conversion file 



WRAPUP is also entered without setting RHODE to zero under the 
following error conditions: 
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708 



339 



Value cannot be converted by a "T" 
conversion 

Invalid format for input data conversion 



3. 3. 4 DLINIT 



DLINIT is used to obtain a block of contiguous overflow space for a file. 
After checking the input parameters and obtaining the necessary number 
of frames* if available* it enters DLINITl to initialize the frames 
(see DLINITl documentation). If not enough space is available for the 
file, DLINIT calls NOSPACE to find out if processing should be 
aborted (see NOSPACE documentation). 



Input Interface 

MODULO T 
SEPAR T 



Output Interface 



BASE 



+ Contain the modulo and separation 
+ parameters for the filei if MODULO is 
initially less than or equal to zero* it 
is set to eleven; if SEPAR is initially 
less than or equal to zero, it is set to 
one, and if initially greater than 127 
it is set to 127 



Contains the beginning FID of a 
contiguous block of size MODULO*SEPAR if 
the space is available, otherwise 
unchanged 



OVRFLW 
RMBIT 
Element Usage 



=BASE if the requested 
available, otherwise -0 



space 



IS 



B 



Set if the requested space is obtained, 
otherwise unchanged 



+ Used by GETBLK 



R14 R 
R15 R 
INHIBITSV2 B + 
DO D + 

Subroutine Usage 

OETBLKj NOSPACE if the requested space is unavailable 
Three additional levels of subroutine linkage required 

Exits 

To DLINITl if the requested space is obtained; to NSPCQ (WRAPUP) 
from NOSPACE if the space is unavailable and processing is aborted by 
the user 
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3.3.5 DLINITl difi. Ws^^c«5, -^ (O , G^0 ^ t.{o . ^rf>-- te^ -TT ) 

DLINITl initializes the link fields of a file as specified by its base, 
modulo> and separation parameters^ and sets each group empty by adding an 
AM at the beginning <in the first data byte). 



Input Interface 

BASE D 
MODULO T 
SEPAR T 



+ Contain the base> modulo, and separatio 
+ of the file; note - one frame is linked 
+ even if MODULO is less than or equal to 
zero 



Output Interface 



R14 



R15 



RECORD 



NNCF 



R 



R 



Points to the first data byte in the 
first frame of the last group in the 
file (set by LINK) 

Points to the last byte of the last 
frame of the last group in the file (set 
by LINK) 

=one greater than the FID of the last 
frame of the last group in the file 



H 



=SEPAR-1 

Frames are initialized as described above 
Element Usage 

CTRl T Utity 



FRMN 


D 


+ 


FRMP 


D 


+ Used by LINK 


NPCF 


H 


+ 



Subroutin. im 5 LINK 

One additional level of subroutine linkage required 
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3. 3. 6 ENGLISH INTERFACE 

Summary 

It is possible to interface uiith the ENGLISH processor at several levels. A 
typical LIST or SORT statement passes through the Preprocessor and Selection 
processor before entering the LIST processor. All statements must pass through 
the first two stages^ but control can be transferred to user-written programs 
from that point onward. 

General Conventions 

The ENGLISH processors use a compiled string that is stored in the IS work 
space. String elements are separated by SM's. There is one file-defining 
element in each string, one element for each attribute specified in the 
original statement, and special elements pertaining to selection criteria, 
sort-keys, etc. The formats of various string elements are as follows: 

File Defining Element, at ISBEG+1: 

SM D file-name AM base VM modulo VM separ AM conv AM 
correl AM type AM just AM SM 

Attribute Defining Element: 

SM c attribute-name AM amc AM conv AM correl AM 
type AM just AM SM 

c = A - regular or D2 attribute 
Q - Dl attribute 

Bx- SORT-BY, SORT-BY-DSND, etc. i "x" is from 
attribute one of the connective 

Explicit Item-id's: 

SM I item-id SM 

End-of-string ELEMENT: 

SM Z 

The Selection Processor 



This performs the actual retrieval of items which pass the selection criteria, 
if specified. Every time an item is retrieved, the processor at the next level 
is entered with bit RMBIT set; a final entry with RMBIT zero is also made 
after all items have been retrieved. If a sorted retrieval is required, the 
Selection processor passes items to the GOSORT mode, which builds up the sort- 
keys preparatory to sorting them. After sorting, GOSORT then retrieves the 
items again, in the requested sorted sequence. 

A user program may get control directly from the Selection processor (or GOSORT 
if a sorted retrieval is required); the formats of the verbs ars: 

Line number Non-sorted Sorted 

1 PA PA 

2 35 35 

*« V V V V / J&% 
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4 X XX X 

where "xxxx" represents the mode-id of the user program. Note that in this 
method of interface* only item retrieval has taken place; none of the 
conversion and correlative processing has been done. For functional element 
interface* the column headed "Selection Processor" in the table shoun later 
must be used. 



Exit Convention: On all but the last entry* the user routine should exit 

indirei 

routin( 

abortec 

also b4 



ctly via 
e should 
at any 
set on 



RMODE <using an ENT» RHODE instruction)* on the last entry, the 
exit to one of the WRAPUP entry points. Processing may be 
time by setting RMODE to zero and entering WRAPUP. Bit SBO must 
the first entry. 



Special Exit From The LIST Processor 



to 



A user program may also gain control in place of the normal LIST formatter, 

perform special formatting. The advantage here is that all conversions, 

correlatives* etc. Have been processed* and the resultant output data has been 

stored in the history string <HS area). The ^'ormats of the verbs then are: 



Line number 



Non-sorted 



Sorted 



1 


PA 


2 


35 


3 


4D 


4 


xxxx 



PA 
35 
4E 
xxxx 



where "xxxx" is the mode-id of the user program. 



data is stored 
ring* delimited 



Output 

the St 

delimited within an 

contai 

HSBEG* 

are pr 



in the HS areai data from each attribute is stored in 
by AM's* multiple values and sub-multiple-values are 
element by VM's and SVM's* respectively. Since the HS may 



n data other than the retrieved item* the 
looking for a segment preceded by an "X"» 
eceded by a SM. The format is: 



user program should scan from 
all segments except the first 



X item-id AM value one AM 



AM value n AM SM Z 



The program must reset the history string pointer HSEND as items are taken out 
of the string. In special cases* data may not be used until* say* four items 
are retrieved, in which case HSEND is reset on every fourth entry only. HSEND 
must be reset to point one byte before the next available spot in the HS work 
space, normally one before the first "X" code found. 



The exit convention for the LIST processor is the same 
processor (see above). 



IS for the Selection 



Example: The following program is an example of one which prints item-id's 
(only) four at a time across the page. 



001 FRAME 504 

002 ZB SB 30 

003 BBS SBO* NOTF 

004 * FIRST TIME SETUP 

005 MOV 4* CTR32 

006 SB SBO 

007 * 

008 NOTF BBZ RMBIT, PRINTIT 

009 BDNZ CTR32* RETURN 

010 MOV 4, CTR32 
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NOT FIRST TIME 
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on PRINTIT 


MOV 


HSBEe,R14 




012 LOOP 


INC 


R14 




013 


BCE 


C'X',R14, STOREIT FOUND AN ITEM 


014 


BCE 


C'Z',R14, ENDHS 


END OF HS STRING 


015 SCANSM 


SCD 


R14, X'CO' 


SCAN TO NEXT SM 


016 


B 


LOOP 




017 STOREIT 


BBS 


SB30, COPYIT 


NO FIRST ID FOUND 


018 


SB 


SB30 


FLA© FIRST ID FOUND 


019 


MOV 


R14>SR28 


SAVE LOCATION OF FIRST 


020 


CMNT 


«- 


"X" 


021 COPYIT 


MUD 


R14, OB, X'AO' 


COPY ITEM- ID TO OB 


022 


MCC 


C SOB 


OVERWRITE AM 


023 


INC 


OB, 5 


INDEX 


024 


B 


SCANSM 




025 ENDHS 


BSL 


WRTLIN 


PRINT A LINE 


026 


MOV 


SR28, HSEND 


RESTORE HS TO FIRST 


027 


CMNT 


* 


"X" CODE 


028 


DEC 


HSEND 


BACK UP ONE BYTE 


029 


BBZ 


RMBIT, QUIT 




030 RETURN 


ENT* 


RMODE 


RETURN TO SELECTION 


031 


CMNT 


« 


PROCESSOR 


032 QUIT 


ENT 


MD999 


TERMINATE PROCESSING 


033 


END 







Element Usage 

The following table sufflmarizes the functional element usage by 

and LIST processors. Only the most important usage is described; 

that have various usages are labeled "scratch." a " " <blank) 

the processor does not use the element. Since the LIST processor is called by | 

the Selectin processor, any element used for "memory" purposes (not to be used i 

by others) in the former is indicated by a blank usage in the latter column. 



the Selec 
el erne 
indicates th 



tion r 
lents I 



In general, user routines may freely use the following elements: 



Bits 
Tallies 

Double tallies 
S/R's 



SB20 upwards 

CTR30 upwards 

D3-DS 

SR20 upwards 



SBO and SBl have a special connotation: they are zeroed by the Selection 
processor when it is first entered, and not altered thereafter. They are 
conventionally used as first-time switches for the next two levels of 
processing. SBO is set by the LIST processor when it is first entered, and 
user programs that gain control directly from Selection should do the same. 
SBO may be used as a first-entry switch by user programs that gain control from 
the LIST processor. 



An ENGLISH verb is considered an "update" type of verb if the SCP character 
<from line one of the verb definition) is B, C, D, E, G, H, I, or J. SCP 
characters of B, C, D, and I mre reserved for future ENGLISH update verbs. 



Bits 



Selection Processor LIST Processor 



ABIT 
BBIT 
CBIT 
DBIT 
EBIT 
FBIT 
GBIT 



scratch 
first entry flag 
scratch 
scratch 
reserved 
reserved 
reserved 
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non-columnar list flag 



scratch 

dummy control-break 

control-break flag 

scratch 

scratch 
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HBIT 
IBIT 

JBIT 

KBIT 
LB IT 
MBIT 

NBIT 
OBIT 

PBIT 
QBIT 
REIT 

SBIT 

TBIT 
UBIT 
VBIT 
WBIT 
XBIT 
YBIT 

ZBIT 

SBO 

SBl 

SB2 
SB4 

through 
SB 17 
VOBIT 

COLHDRSUPP 

DBLSPC 

HDRSUPP 

IDSUPP 

DETSUPP 

LPBIT 

TPBIT 

CBBIT 

PAGFRMT 

RMBIT 



WMBIT 
GMBIT 
BKBIT 
DAFl 

DAF8 



Tallies 



CliC3-C7 



reserved 

explicit item-id's 

specified 

reserved 

by-exp flag 

scratch 

CONV interface; 

zero 

scratch 

selection test on 

item-id 

scratch 

scratch 

full-file-retrieval 

flag 

selection on values 

<WITH) 

scratch 

scratch 

reserved 

scratch 

scratch 

left-justified 

value being tested 

left-justified 

item-id 

unavailable 

unavailable 

reserved; zero 
scratch or reserved 



set for WRAPUP 
interface 
set if the corre- 
sponding connective 
was found in the 
input statement 



scratch 



D2 attribute in 
process 
by-exp flag 
left-justified field 
zero 

scratch 



scratch 
scratch 



print limiter flag 

reserved 

scratch 

reserved 

reserved 

left-justified print 

limiter test 



first 


entry 


flag, 


level 


one 




first 


entry 


flag, 


level 


tU)0 





scratch or reseved 



set on exit if an 

item was retrieved; 

zero on final exit 

FUNC interface FUNC interface 

FUNC in tr face FUNC interface 

scratch scratch 

set if SCP»B, C, D, 

E» e, H, 1 1 or J 

set if accessing a 

dictionary 

Selection processor LIST processor 

scratch scratch 

contents of M0DEID2 
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CTR1-CTR4 


scratch 




scratch 


CTR5 




scratch 




AMC of the current 
element in the IS 


CTR6 




reserved 




scratch 


CTR7 




reserved 




AMC corresponding 
to IR 


CTR8 




reserved 




scratch 


CTR9 




reserved 




scratch 


CTRIO 




reserved 




scratch 


CTRll 




reserved 




scratch 


CTR12 




FUNC interface 


current sub-value counter 










count 


CTR13 




FUNC interface 


current value count 


CTR14 




reserved 




scratch 


CTR15 




reserved 




item size 


CTR16 




reserved 




scratch 


CTR17 




reserved 




reserved 


CTR18 




reserved 




scratch 


CTR19 




reserved 




sequence no for by-exp 


CTR20- 


■CTR23 


CONV inter 


face 


CONV interface 


CTR24 




reserved 




scratch 


CTR25 




reserved 




scratch 


CTR26 




reserved 




scratch 


CTR27 




reserved 




current max-length 


CTR28 




reserved 




scratch 


Other 


storage 


Selection 


processor 


LIST processor 


D9 




count of retrieved 








items 






D7 




FUNC inter 


face 


FUNC interface 


FP1-FP5 


FUNC inter 


face 


FUNC interface 


RliODE 




return mod 
(MD3) 


e-id 




SIZE 




item-size 




scratch 


SBASE 




file base. 


modulo* 




SMOD 




and separa 


tion 




SSEP 










DBASE 




dictionary 


base> 




DHOD 




modulO/ an 


d 




DSEP 




separation 






S/R's 




Selection 


processor 


LIST Processor 


SI 




points to 
explicit i 


the next 
tem-id 




S2-S9 




scratch 




scratch 


SRO 




points one 


before 





r 
1 
r 



I 



SRI 



points to the 
correlative field 



SR2 




scratch 




SR3 




reserved 




SR4 




points to 


the last 






AM of the 


item 


SR5 




reserved 




SR6 




points to 


the 






conversior 


1 field 


SR7 




reserved 




SR8- 


SR12 


reserved 
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current correlative 

scratch 
scratch 



points to the next 

segment in the IS 

current conversion 

field 

scratch 

reserved 
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SR13 eOSORT only: next reserved 

sort-key 

SR14-SR19 reserved reserved 

PAGHEAD heading in the HS generated heading in 

if HEADING was the HS 

specified 

A/R's Selection Processor LIST Processor 

AF scratch scratch 

BMS uithin the BMS scratch 

aVBB 

CS scratch 

IB scratch 

OB output data line 

IS compiled string compiled string 

OS scratch 

TS within the TS area within the TS area 

UPD within the HS area 

IR within the item within the item 

Work Space 

Usage Selection Processor LIST processor 

AF scratch 

BMS contains the item-id 

CS control break value string 

IB output line 

IS compiled string 

OS scratch 

HS heading data heading data; 

attribute data for 
special exits 

TS scratch current value in 



process 



Additional Notes 



If a full-file-retrieval is specified/ the 
additional internal elements as used by GETITIi 
will be used. If explicit item-id's are 
specified* RETIX is used for retrieval of each 
item. 

Most elements used by the CONV and FUNC processors 

have been shown in the table; both may be called 

either by the Selection processor or the LIST 
processor. 

Since the ISTAT and SUM/STAT processes are 
independently driven by the Selection processor* 
the element usage of these processors is not 
shown. 

The section of the IS and OS used by the Selection 
and LIST processors is delimited by ISEND and 
OSEND respectively. The buffer space beyond these 
pointers is available for use by other programs. 



CHAPTER 3 SUPPORT SOFTWARE Copyright 1987 PICK SYSTEMS 

PAGE 61 



3. 3. 7 OETBUF - G3 



These routines accept input data from the terminal and perforin 
some editing on the characters obtained. GETBUF also prints 
an initial prompt character at the terminal before reading input. 
Control is returned when a non-editing control character is input, 
or when the number of characters specified in TO or Tl are input. 



Editing Features 
Control-H 

Control-X 

Control-R 
Rubout 



Control-shift-K 
Control-shift-L 
Control-shift-M 
Control-shift-N 
Control-shif t-0 



Logically backspaces the buffer 
pointer; echoes character in BSPCH 

Logically deletes the entire input 
buffer; echoes a CR/LF* and prints 
the prompt character 

Retypes the input line 

Ignored; the character is echoed* 
but is not stored in the buffer 

These characters are converted to 
the internal delimiters SB. SVM. 
VM> AM. and SM. respectively; they 
echo as the characters C. /. 3. •'^. 
and 



Note: the high order bit of all characters input is zeroed. 
Input Interface 



BSPCH 



PRMPC 



TO 



Tl 



R14 



R15 



R 



Contains the character to be echoed to 
the terminal when the back space key is 
pressed; required by 03 

Character output as a "prompt" when 
input is first requested by OETBUF. and 
after certain editing operations by both 
GETBUF and 03 

Contains the maximum number of 
Characters accepted <for GETBUF only) 

Contains the maximum number of 
characters to be accepted <for 03 only) 

Points one byte before the beginning of 
the input buffer area (for GETBUF only) 

Points one byte before the beginning of 
the input buffer area (for 03 only) 



Output Interface 
R15 R 

Element Usage 

DO 
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3. 3. 8 OETIB 



GETIBX 



GETIB and OETIBX are the standard termianal input routines. 
Register IBBEG points to a buffer area where the routine will input 
data. Input continues to this area until either a carriage return 
or line feed is encountered* or until a number of characters equal 
to the count stored in IBSIZE have been input. The carriage return 
line feed terminating the input line is overwritten with a segment 
mark (SM)> and register IBEND points to this character on return. 
If the input is terminated because the maximum number of characters 
has been inputs a SM will be added at the end of the line. 



the 



or 



This routine calls GETBUF to read input data from the terminal* and 
then determines if the last character was a carriage return or line 
feed* and echoes a CR/LF to the terminal. If the last character 
was a control character (see GETBUF documentation)* GETIB/GETIBX 
either accepts or deletes the character* depending on the value 
of bit CCDEL* and calls GETBUF again. 

The entry GETIB also provides the facility for taking input from 

a stack instead of directly from the terminal (see below). This 

feature is used* for example* by the PROC processor to store 

input lines which are returned to requesting processors as if 

they originated at the terminal. If the last character in a 

stacked line is a " "* it is replaced with a SM. Terminal input 

resumes when the stacked input is exhausted. GETIBX does not 

test for stacked input. 

Input Interface 



CCDEL B If set* control characters are 

from terminal input 



deleted 



IBBEG 



Points one byte before the buffer area 
where input is to be stored*- the buffer 
must be two bytes greater than IBSIZE 



IBSIZE 



Contains 
characters 



the maximum 
accepted for 



number 
input 



of 



LFDLY 



Contains (in the low-order byte) the 
number of "fill" characters (nulls) to 
be issued after a CR/LF echo to the 
terminal* required by PCRLF 



PRMPC 



Terminal 
GETBUF 



prompt character; required by 



BSPCH 



Contains the character to be echoed to 
the terminal when the back space key is 
pressed* required by G3 



STKFLG B If set, GETIB tests for "stacked" input; 

terminal input will not be requested 
until stacked input is exhausted 



STKINP 
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S Points to the next "stacked" input line; 

lines are deliminated by AM's* with a SM 

indicating the end of the stack 
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Output Interface 

IB R =IBBEQ 



I 



I BEND 



Points to a SM one byte past the end I 

of input data < overwrites the CR or LF) 



STKFLG B Zeroed if the end of stacked input uias 

reachedi not changed if initially zero 

STKINP S Points to the next line of stacked input 

<or end of stack) if stacked input is 
being processed 



[ 

r 



Element Usage I 

R14 R 

R15 R 
Subroutine Usage 

If no stacked input: GETBUF, Q3, PCRLF <if CCDEL=1 ) 

One additional level of subroutine linkage required I 



r 
r 



Error Conditions 

if a stacked input line exceeds IBSI2E< the line is truncated at IBSIZE; 
the remainder of the line is lost. 

3. 3. 9 GETITM 



I 
[ 



This routine sequentially retrieves all items in a file. It is called f 
repetitively to obtain items one at a time until all items have been retrieved- ■ 
The order in uihich the items are returned is the same as the storage sequence. 

If the items retrieved are to be updated by the calling routine (using routine | 
UPDITM), this should be flagged to GETITM by setting bit DAFl. For updating^ 
GETITM performs a two-stage retrieval process by first storing all item-ids .- 
(per group) in a table> and then using this table to actually retrieve the i 
items on each call. This is necessary because* if the calling routine updates 
an item, the data within this group shifts aroundi GETITM cannot simply 
maintain a pointer to the next item in the group> as it does if the "update" I 
option is not flagged. i 

An initial entry condition must also be flagged to GETITM by zeroing bit DAF7 , 

before the first call. GETITM then sets up and maintains certain pointers 

which should not be altered by calling routines until all the items in the file 
have been retrieved (or DAF7 is zeroed again). 

Note the functional equivalence of the output interface elements with those of - 
RETIX. 

Input Interface 

DAF7 B Initial entry flag; must be zeroed on 

the first call to GETITM 

DAFl B If set» the "update" option is in effect 
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DBASE 


D 


DMOD 


T 


DSEP 


T 



+ Contain the base> modulo« and separation 
+ of the file 



BMSBEO 



OVRFLCTR D 



Points one prior to an area where the 
item-id of the item retrieved on each 
call may be copied 

Meaningful only if DAFl is set* if 
non-zero> the value is used as the 
starting FID of the overflow space table 
where the list olrbem-ids is storedi if 
zero# GETSPC is called to obtain space 
for the table 



Output Interface 



RMBIT 


B 


+ 




SIZE 


T 


+ 




R14 


R 


+ 


<See RETIX documentation) 


IR 


R 


+ 




SR4 


S 


+• 




XMODE 


T 


+ 





SRO 



=R14 if DAFl is set. otherwise as set by 
GNSEQI 



BMS R As set by RETIX if DAFl is set, 

otherwise as set by GNSEQI 

BMSEND S =BMS if DAFl is set. otherwise unchanged 



DAF9 

Element Usage 

BASE 

MODULO 

SEPAR 

RECORD 

NNCF 

FRMN 

FRMP 

NPCF 



B 



D 
T 
T 
D 
H 
D 
D 
H 



=0 



+ 

+ 

+ 

+ Used by SETITM and other subroutines for 

+ accessing file data 

+ 



OVRFLW D Used by SETSPC if DAFl is 

OVRFLCTR is initially zero 



set and 



The following elements should not be altered by any other routine while 
GETITM is used: 



DAFl 
DAF7 



B + (See Input Interface) 
B + 



DBASE 



Contains the beginning FID of 
current group being processed 



the 



DMOD T Contains the number of groups left to be 

processed 
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DSEP 

SBASE 

SHOD 

SSEP 

NXTITM 



D 

T 
T 



OVRFLCTR D 



Subroutine Usage 

RCREC. GNSEQI; 
is set 



(Unchanged ) 

+ Contain the saved values of DBASEi DMOD. 
+ and DSEP uhen the routine was first 
■*■ called 

Points one before the next item-id in 
the pre-stored table if DAFl is set> 
otherutise points to the last AM of the 
item previously returned 

Contains the starting FID of the 
overflow space table if DAFl is set> 
otherwise unchanged 



GNTBLI (local), RETIX. and GETSPC (if OVRFLCTR =0) if DAFl 



I 



BMSOVF used with XMODE 

Four additional levels of subroutine linkage required 

Error Conditions 

See RETIX documentation ("Exits"); GETITM* however, continues retrieving 
items until no more are present even after the occurance of errors 



r 
r 
r 
r 
r 
r 

I 



3. 3. 10 OETOPT " 

This routine processes an option string consisting of single alphabetic f 
characters and/or a numeric option, separated by commas. A numeric option i 
consists of a numeric character or a pair of numeric characters separated by a 
hyphen. If the option string contains more than one numeric option, the last i 
one will be used. Alphabetic options set the corresponding bits ("A" sets I 
ABIT, etc. ), but these bits are not zeroed upon entry. The option string 
begins one past the address pointed to by register IS, and must end with a 
right parenthesis (")"). 

Input Interface 

IS R Points one before the option string 

Output Interface 

ABIT B + 

+ 

4- Set as described above 

+ 
ZBIT B + 



NOBIT B Set if a numeric option is found, 

otherwise zeroed 

RMBIT B Set if no errors are found in the option 

format, otherwise unchanged 

D4 D ssvaluB of the first number in a numeric 
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D5 



IS 



R 



option^ if found/ otherwise unchanged 

-value of the second number in a numeric 

option^ if found; =D4 if a numeric 

option consists of a single number; 
otherwise unchanged 

Points to the last character processed 
(as")" if no format errors are found) 

=0 if a format error is found 



RHODE T 
Element Usage 

DO and Dl 
Subroutine Usage 

CVTNIS if a numeric option is found 

Two additional levels of subroutine linkage required 
Exits 

To HD995 with error 209 if a format error is found 



3. 3. 11 OETOVF 



GETBLK 
GETSPC 



These routines obtain overflow frames from the overflow space pool maintained 
by the system. OETOVF and OETSPC are used to obtain a single frame; GETBLK is 
used to obtain a block of contiguous space (used mainly by the CREATE-FILE 
processor). Note that the link fields of the frame<s) obtained by a call to 
GETBLK are not reset or initialized in any way - this is a function of the 
calling routine. GETOVF and GETSPC zero all the link fields of the frame they 
return. 

These routines cannot be interrupted until processing is complete. 

Input Interface 



DO 



D 



Output Interface 
OVRFLW D 



Contains the number of frames needed 
(block size), for GETBLK only 



If the needed space is obtained, this 
element contains the FID of the frame 
returned (for GETOVF and GETSPC) or the 
FID of the first frame in the block 
returned (for GETBLK); if the space is 
unavailable, OVRFLW=0 



Element Usage 



INHIBITSV2 B + 

DO D + Utility 

R14 R + 

R15 R + 
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Subroutine Usage 

SYSGET <but not used by OETOVF if a frame is obtained from a multiple- 
frame block in the system overflow table); three internal subroutines; 
GETOVF called by GETSPC; NOSPACE called by GETSPC if no frames are 
available 

One additional level of subroutine linkage required by GETOVF and GETBLK; 
three levels required by GETSPC 

Exits 

For GETSPC: to NSPCQ if no more frames are available and processing is 
aborted by the user; this is a function of NOSPACE 



3. 3. li 



GETUPD 



GETUPD initializes the UPD register triad to point to the UPD work space (frame 
PCB+28 ) . 



Inpu 


t Interface 




None 




Outp 


ut Interfa 


ce 




UPD 


R 




UPDBEG 


S 




UPDEND 


S 



R + Point to the first data byte of the 
+ frame 28 frames after the process's PCB 

Points to the last byte of the above 
frame 



f 
f 



3. 3. 13 GNSEQI 



This routine gets the next sequential item from a file. If its pointer 
into the file (register NXTITM) is at the end of a group, it returns 
with bit RMBIT zero; otherwise it copies the item-id into the area 
specified by register BMS. updates NXTITM, sets RMBIT, 

sets registers pointing to the beginning and end of the item, and returns 
the item size in tally SIZE. If a non-hexadecimal digit is found 
in the item count field, or the computed item size is negative or 
zero, GNSEQI immediately returns to the routine which called it. 



Input Interface 
NXTITM S 



Points one before the beginning of the 
next item to be retrieved (or the AM at 
the end of the group) 



BMS 



Points one before the area to which the 
item-id is to be copied 



Output Interface 
RMBIT B 



Set if an item was successfully 
retrieved, otherwise zeroed 



NXTITM S Points one before the following item or 
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end-of-group AM if RMBIT 
otherwise unchanged 



is set> 



BMS 



SRO 



SR4 



IR 



R Points to an AM after the copied item-id 
if the item was retrieved* otherwise 
unchanged 

S =the initial value of NXTITM if not at 
the end of the group* otherwise 
unchanged 

S =NXTITM if RMBIT is set* otherwise 
unchanged 

R Points to the AM after the item-id if 
RMBIT is set} points to the AM before 
the item-id if SIZE is zero onegative; 
points to the AM indicating end of group 
data if there were no more items in the 
group when the routine was called; 
points to the character in error if a 
non-hexadecimal character is found in 
the item count field 



SIZE 
XMODE 



D 



Contains the value of 
field if RMBIT is set 

=0 



the item count 



3. 3. 14 GNTBLI 



This routine retrieves the next entry from a table consisting of 
strings (typically item-ids) separated by AMs* and terminated by 
a SM. On each call* the routine checks if its pointer (register 
NXTITM) is at the end of the table. If it is> the routine exits 
with bit RMBIT zero* otherwise the next table element is copied 
into the buffer specified by register BMS* NXTITM is set 
pointing to the following element* and RMBIT is set. 



Input Interface 



NXTITM 



Points 
(or SM) 



one before the next table entry 



BMS R 

Output Interface 
NXTITM S 



Points one before the area to which 
table entry is to be copied 



the 



Points to the AM following the entry 
which was copied* if one was copied* 
otherwise one before the SM at the end 
of the table 



IR 



R =NXTITM if an element was copied) 
otherwise NXTITM+1 



BMS R Points to an attribute mark one past the 

end of the entry copy* if present* 
otherwise unchanged 
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RMBIT B Zeroed if NXTITM points to the 

table when the routine is 
otherwise set 



end of the 
called^ 



3.3.15 HGETIB 

This routine accepts a line of input from the terminal* like SETIB, 
and also handles tabs if bit STKFLO is zero. A table of preset tab 
positions* in increasing order of column numbers* is assumed to be 
set up in tallies CTR8-CTR15. Up to 16 tab positions may be stored* 
two per tally* with unused positions set to zero. When a horizontal 
tab character <control-I» X'09') is encountered in the input 
string* the cursor is positioned according to the tab table* and the 
input line is filled with the appropriate number of blanks. 



Input Interface 



STKFLG 



IBBEG 



IBSIZE 



LFDLY 



PRMPC 



BSPCH 



CCDEL 



STKINP 



B If set* the routine immediately enters 
GETIB* without processing tab 
characters* if set* GETIB tests for 
"stacked" input* terminal input will not 
be requested until stacked input is 
exhausted (see GETIB documentation) 

S Points one byte before the buffer area 
where input is to be stored* the buffer 
must be two bytes greater than IBSIZE 

T Contains the maximum number of 
characters accepted for input 

T Contains (in the low-order byte) the 
number of "fill" characters (nulls) to 
be issued after a CR/LF echo to the 

terminal* required by TCRLF (and PCRLF) 

C Contains the terminal prompt character; 
required by GETBUF 

C Contains the character to be echoed to 
the terminal when the back space key is 
pressed* required by G3 

B If set. control characters are deleted 
from terminal input 

S Points to the next "stacked" input line* 
lines are deliminated by AM's* with a SM 
indicating the end of the stack* 
meaningful only if STKFLG is set 



r 
r 



CTR8 



CTR15 



+ Contain tab positions as described above 
+• 



Output Interface 
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IB 
I BEND 

STKFL© 

STKINP 

Element Usage 



R =IBBEe 

S Points to a SM one byte past the end 
of input data <overwrites the CR or LF) 

B Zeroed if the end of stacked input was 
reachedi not changed if initially zero 

S Points to the next line of stacked input 
<or end of stack) if stacked input is 
being processed 



DO 


D 


+ 


Dl 


D 


+ 


R14 


R 


+ 


R15 


R 


+ Utility 


IB 


R 


+ 


CTR7 


T 


+ 


CTR16 


T 


+ 



Subroutine Usage 

GETBUFi TCRLF; 03 

Two additional levels of subroutine linkage required 



3. 3. 16 HSISVR? 

This routine sets up the register triads for the HS, IS. and OS work spaces 
described below. It does not link frames in the work spaces. 

Input Interface 

None 

Output Interface 

R2 R Points to the Secondary Control Block 

<PCB+1> 

HS R + Point to the beginning of the HS work 
HSBEG S + space <PCB+10) 
HSEND S + 

IS R + Point to the beginning of the IS work 
ISBEG S + space <PCB+16) 

ISEND S Points to the last data byte in the 

primary OS work space <3000 bytes past 
ISBEG) 

OS R + Point to the beginning of the OS work 
OSBEG S + space <PCB+22) 

OSEND S Points to the last data byte in the 

primary OS work space (3000 bytes past 
OSBEG) 



as 
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The first byte in each work space is set to X'OO'. 
Element Usage 
DO 



3. 3. 17 INITTERM 



RESETTERM 



These routines are used to initialize terminal and line printer 
characteristics. RESETTERM is called from WRAPUP before reentering 
TCL; INITTERM is called from LOeON. 



Input Interface 
OBSIZE T 

OBBEG S 

Output Interface 

TOBSIZE T 

TPAGSIZE T 

POBSIZE T 

PPAGSIZE T 

PASSKIP T 

LFDLY T 

BSPCH C 



Contains the value of the output <DB) 
buffer (RESETTERM only) 

Points to the start of the OB buffer 



+ Initialized to default values* 

+ SETUPTERM (INITTERM only) 

+ 

+ 



as by 



r 



r 



r 



CCDEL 


B 


+ 




SMC ON V 


B 


+ 




STKFLS 


B 


+ 




PAGINATE 


B 


+ 




NOBLNK 


B 


+ 




LPBIT 


B 


+ 


=0 


TPAGNUM 


T 


+ 




TLINCTR 


T 


+ 




PPAGNUM 


T 


+ 




PLINCTR 


T 


+ 




PAGNUM 


T 


+ 




LINCTR 


T 


+ 




PAGHEAD 


S 




Contains zero 


OB 


R 




=OBBEG 


OBSIZE 


T 




=TOBSIZE 


R14 


R 


+• 


«OBBEG+OBSIZE 


OBEND 


S 


+ 





r 



The area from the address pointed to by OBBEG to that pointed to by OBEND 
is filled with blanks 



3, 3. IS IROVF 

These routines can be used to handle end-of -linked-frames conditions 
when using register IR with MCI, Mil, or MUD instructions. By 
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setting tally XMODE to the mode-id of one of these routines before 

executing the instruction* the routine will be entered automatically 

if an end-of-linked-frames (forward link zero) condition occurs. 

A warning message will be printed and control will pass to the instruction 

following the MCI» Mil* or MUD instruction. Additionally, bit 

DAF9 may be set to truncate group data so that the condition does 

not arise again. The only difference between the two IROVF entry 

points is that the one in SYSTEM-SUBS-II initializes register R14 

to be compatible with routines such as GNSEQI* and then branches to 

the code in WSPACES-II. 



Input Interface 
IR R 



Points into the frame whose forward link 
is zero 



DAF9 



B If set. group data is terminated at the 
address specified by R14 <UPDITM. for 
instance, uses this feature); otherwise 
the warning message is printed but the 
data is unchanged 



R14 



Points to the address at which group 
data is to be truncated if DAF9 is set. 
typically the end of the last good item 
in the group; an AM is stored in the 
byte addressed by R14. marking the end 
of an item, and another AM is stored in 
the following byte, marking the end of a 
group 



OBBEG S Points one prior to an output buffer for 

printing an error message (required by 
WRTLIN) 



NXTITM 



Contains the value to be used in R14 for 
group data truncation (SYSTEM-SUBS- I 
entry only) 



Output Interface 
IR R 



Points to the last byte of the frame 



R14 


R 


+ 


= IR-1 


SR4 


S 


+ 




RMBIT 


B 


+ 




LISTFLAG 


B 


+ 


=0 


SIZE 


T 


+ 




XMODE 


T 


+ 





The message "»GROUP FORMAT ERROR xxxx" is printed, where "xxxx" is the 
number of the frame pointed to by IR 

Element Usage 

R15 R 



T4 T + 

T5 T + Used by MBDSUB 

Dl D + 
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D2 D + 

Subroutine Usage 

MBDSUB; WRTLIN 

BMSOVF used with XMODE if DAF9=1 

Five additional levels of subroutine linkage required if LPBIT is set (for 
WRTLIN); Four levels required if DAF9 is set and BMSOVF is entered to 
obtain another overflow frame (using ATTOVF) - this would occur if R14 
were also pointing at the end of a set of linked frames when IROVF was 
entered) one level always required for MBDSUB 

3. 3. 19 ISINIT 

ISINIT simply invokes WSINIT and HSISOS to initialize all the process work 
space pointers. 

Input and Output Interfaces 

See WSINIT and HSISOS documentation. 
Element Usage 

DO 
Subroutine Usage 

WSINIT, HSISOS 

Three additional levels of subroutine linkage required 

3. 3. 20 LINESUB 

This routine returns the line number of the calling process in the 
accumulator 

Input Interface 

None 

Output Interface 

DO D Contains the line numb&r associated with 

the process 

Element Usage 

Dl D 
Subroutine Usage 

OPCBO 

One additional level of subroutine linkage required 
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r 

r 

r 

I 

r 

r 

I 

r 

I 

r 

r 



3.3.21 MD4i5 

This routine is used to pick up numeric parameters from a string 
addressed by register IB. Parameters may be either a single string 
of numeric characters* or two such strings separated by a hyphen. 

Input Interface 

IB R Points at least one before the first 

non-blank character of the parameter 
string* or to a SM indicating no 
parameters 

SC2 C Contains a blank 

Output Interface 

C3 T Contains the value of the first numeric 

parameter if one is converted* otherwise 
set to zero 

C4 T Contains the value of the second numeric 

parameter except under the following 
conditions: if zero or one parameters 
are present. C4 is set to X'7FFF'; if 
the second parameter is less than the 
first* C4 is set equal to C3 

IB R Points to the first non-blank character 

after the converted parameter string* 
but unchanged if originally pointing to 
a SM 

3. 3. 22 NEWPAOE 

This routine is used to skip to a new page on the terminal or line printer 
and print a heading. No action is performed* however* if bit PAGINATE 
or tally PAGSIZE is zero. 

Input Interface 

As for WRTLIN* except OB is first set equal to OBBEG by this routine 

Output Interface 

Same as for WRTLIN 
Element Usage 

Same as for WRTLIN 

Subroutine Usage 

WRTLIN and routines called by it, if PAGINATE is set and PAGSIZE is 
greater than zero 

Additional subroutine linkage required only if WRTLIN is called* see 
WRTLIN documentation for the number o^* additional levels of linkage 
required, and add 1 
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3. 3. 23 NEXTIR - NEXTOVF 

NEXTIR obtains the forward linked frame of the frame to which register IR (R6) 
currently points; if the forward link is zero* the routine attempts to obtain 
an available frame from the system overflow space pool and link it up 
appropriately (see ATTOVF documentation). In addition* if a frame is obtained* 
the IR register triad is set up before return* using routine RDREC. 



NEXTOVF may 
automatical 
instruction 
NEXTOVF be 
reach an en 
generate a 
an availab 
(assuming a 
space pool* 
instruction 



be used in a special way to handle end-of-linked-frame conditions 
ly when using register IR with single- or multiple-byte move or scan 
s (MUD* Mil, or MCI). Tally XMODE should be set to the mode-id of 
fore the instruction is executed; if the instruction causes IR to 
d-of-linked-frame condition (forward link zero)* the system will 
subroutine call to NEXTOVF* which will attempt to obtain and link up 
le frame* and then resume execution of the interrupted instruction 

frame was gotten). If there are no more frames in the overflow 

NOSPACE is called. Note that the "increment register by tally" 

cannot be handled in this manner. 



NEXTOVF is also used by UPDITM with register TS (R13). If 
with TS at an end-of-1 inked-f rames condition* a branch is 
inside UPDITM. Under any other condition (other than IR or 
frame)/ NEXTOVF immediately enters the DEBUGGER. 

Input Interface 



NEXTOVF is enter 
taken to a po 
TS end-of-linked- 



I 

r 



red I 
int I 



r 



IR 



Points into the frame whose 
forward-linked frame is to be obtained 
(displacement unimportant) 



ACF 



H For NEXTOVF only* 
IR end-of-linked- 
automatically by 
instructions) 



must contain X'06' for 

•frame handling (set 

MUD* Mil, and MCI 



Output Interface 



IR R ■+• Point to the first data 
IRBEO S + forward linked frame 



byte of th( 



I REND 



Points to the last byte o-f the forward 
linked frame 



RECORD 



Contains the FID of the -frame to which 
IR points 



R15 

NNCF 

FRMN 

FRMP 

NPCF 



R + 

H + 

D + As set by RDLINK for the FID in RECORD 

D + 

H + 



OVRFLW 



ssRECORD if ATTOVF called. otherwise 
unchanged 



Element Usage 
R14 



Used by RDLINK 



Elements used by ATTOVF if a frame is obtained from the overflow space 
pool 
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r 

( 
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Subroutine Usage 

RDLINK; ATTOVF if a frame must be obtained from the overflow space pooli 
NOSPACE if ATTOVF cannot find any more frames 

Three additional levels of subroutine linkage required 

Ex its 

Normally returns via RDREC; possibly to NSPCQ if NOSPACE used (see 
NOSPACE documentation); to 5, DBl if ACF not X'06' or X'OD' <NEXTOVF only) 

3. 3. 24 OPENPFILE 

This routine retrieves the base* modulo* and separation parameters of the 
system file POINTER-FILE* and bypasses the normal lock-code tests in doing so. 



Input Interface 
BMSBEG S 

Output Interface 



BASE D 

MODULO T 

SEPAR T 

Element Usage 



Points to an area where the POINTER-FILE 
file-name may be copied* for RETIX 



+ Contain the POINTER-FILE base* modulo* 

+ and separation 

+ 



( 


R15 


R 


+ Utility 


BMS 


R 


+ 


^ 


CTRl 


T 


Used to 


RECORD 


D 


+ 




SIZE 


T 


+ 


r-v 


NNCF 


H 


+ 




FRMN 


D 


+ 



Used to save the value of tally USER 



FRMP D 

NPCF H + Used by RETIX 

IR R + 

R14 R + 

BMSEND S + 

SR4 S + 

XMODE T + 

DAF9 B + 



SYSRO S + Used by GBMS if the POINTER-FILE item in 
SYSRl S + the SYSTEM dictionary is a "Q" code item 
SYSR2 S + 



Subroutine Usage 



GMMBMSi RETIXj GBMS 
dictionary is missing 



unless the POINTER-FILE entry in the SYSTEM 



Six additional levels of subroutine linkage required if the POINTER-FILE 

entry in the SYSTEM dictionary is a "Q" code item* otherwise four levels 
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required 

Exits 

To MD994 with message 201 (value in CI) if the POINTER-FILE entry in the 
SYSTEM dictionary is missing or in improper format 



3. 3. 25 PCBFID 

m 
This routine returns the FID of the PCB for the process as a string of four | 
hexadecimal digits in the TS work space. 



Input Interface 
TSBEG S 

Output Interface 



Points one before the area where the 
returned value is to be stored 



TS R + Point to the last character of the 
TSEND S + returned value> at TSBEG+l 



R15 R 
Element Usage 
DO 



Points to a SM placed at TS+1 






3. 3. 26 PCRLF 



FFDLY 



PCRLF prints a carriage return and line feed on the terminal and 
enters FFDLY/ which prints a specified number of delay characters 
<X'00'). 



Input Interface 
LFDLY H 

TO T 

Output Interface 

None 
Element Usage 

R14 R 



Contains the delay count (for PCRLF 
only) 

Contains the delay count (for FFDLY 
only) 



3. 3. 27 PINIT 

PINIT is used for process initialization. Pointers are set up to 
all work spaces; links are set up in frames of linked work spaces 
(HS/ ISi 0S> and PROC). All elements in the primary^ secondary^ 
and tertiary (DEBUG) control blocks are zeroed* except as noted 
below. 
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r 



r 
r 

r 



r 



Input Interface 
RO R 

Outt Interface 



R2 

HS 

HSBEG 

HSEND 

IS 

ISBEG 
I SEND 

OS 

OSBEG 

OSEND 

IBSIZE 

OBSIZE 

TTLY 

INHIBIT 



R 
S 
S 

R 
S 
S 

R 
S 
S 

T 

T 

T 

B 



Points to the PCB of the process to be 
initiaized 



Points to the process's SCB <PCB+1) 

+ he beginning of the HS work 
+• space <PCB+10) 

•«- 

+ POINT TO THE BEGINNING OF THE IS work 
+ space <PCB+16> 

+ 

+ Point to the beginning of the OS work 
+ space <PCB+22> 



= 140 

= 100 

=0 <For DEBUG use) 

= 1 



other elements as initialized by usinit. 

Address registers, and the PCB elements PRIiPC, SCO, SCI, and SC2 (all 
characters) are not zeroed. In addition, the tertiary control block is 
initialized for the debugger by setting the corresponding INDEBUG bit to 
1, and setting the corresponding Ri and return stack elements to execute 
debugger code. 

Element Usage 

(Functional elements initialized as described) 
Subroutine Usage 

WSINIT (local), LINK 

Three additional levels of subroutine linkage required 

3. 3. 28 PONOFF 

PONOFF is used to reverse the setting of bit LISTFLAG before entering the 



WRAPUP processor. 



When LISTFLAG is set, all output to the terminal is 



suppressed by the standard output routines (see URTLIN documentation), 
reversing this bit, PONOFF exits to MD99. 



After 



3.3.29 PPUT (1,SP00LADD)« 

PPUT is used to output a line of data to the spooler process, uihich will then 
print it on the line printer or take other action depending on the process's 
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entry in the spool assignment table (see spooler documentation). 
Input Interface 



OBBEG 

OB 

NOBLNK 



B 



Output Interface 
OB R 
RHODE T 



Points one before the first character of 
the output data 

Points to the last character of the 
output data 

if set> the output buffer is not filled 
with blanks after the data is output 



»OBBEG 

=0 if processing is aborted due to no 
more overflow space available 



The output buffer is filled with blanks (through the address originally 
pointed to by OB) unless NOBLNK is set 

Element Usage 

R8 R + 

R14 R + 

R15 R + 

INHIBITSVl B + Utility 

CHO C + 

Dl D + 

RECORD D + 



OVRFLW D 
Subroutine Usage 



Used if ATTOVF is called 



ASG. TBLi two local subroutines* ATTOVF if more overflow space is needed 
to store datai 2, SPOOLINIT and CHANCE2 if ATTOVF cannot find any more 
space 

Three additional levels of subroutine linkage required 

Exits ** 

To LINE if line-at-a-time spooler output is specified in the assignment 
table entry; to MD999 if processing aborted due to no more overflow space 
avai lable 



I 



r 



( 



r 



3.3.30 PRIVTSTl - PRIVTST2 



PRIVTST3 



These routines check to see if the calling process has appropriate system 
privilege levels. If not, bits PQFLG and LISTFLAG and tally RHODE are set to 
zero, the history string is set null < HSEND=HSBEO > , tally REJCTR is set to 82 
<an error message number), and an exit is taken to MD99. Otherwise the 
routines return normally. 



Entry 



PRIVTSTl SYSPRIVl 
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PRIVTST2 
PRIVTST3 



ROi B245 



3. 3. 31 PRNTHDR 



NPAOE 



These are entry points into the system routine for pagination and heading 
control of output (also used by WRTLIN> WT2> and WRITOB when pagination is 
specified). PRNTHDR is used to initialize bit PAGINATE to 1* and tallies 
LINCTR and PAGNUM to zero and one, respectively. PRNTHDR then falls 
immediately into NPAGE, uhich outputs a header message. 

A page heading* if present, must be stored in a buffer defined by register 
PAGHEAD. The header message is a string of data terminated by a SM; system 
delimiters in the message invoke special processing as follous: 



SM (X'FF') 



AM (X'FE') 



VM (X'FD') 



Terminates the header line with a CR/LF 

Inserts the current page number into the 
heading 

Prints one line of the heading and 
starts a new line 



SVM (X'FC) 



SB (X'FB') 



Singly, inserts the current time and 
date into the heading, but two SVM's in 
succession insert the date only 



Inserts da 
into the 
following 
from the 
the addr 
BMSBEGi 
register 
character, 
beginning 
specified 
copied can 
delimiter 



ta from o 

heading; 

the SB is 

area beg 

ess spe 

if the 

AFBEG i s 

data is 

three by 

by regist 

be term 



ne of variou 
if the 
'I', data i 
inning one 
cified by 
character 
used; for 
copied from 
tes past th 
er ISBEG; d 
inated by a 



s buffers 

character 

s copied 

byte past 

register 

is 'A', 

any other 

the area 

e address 

ata to be 

ny system 



Carriage returns, line feeds, and form feeds should not be included 
header messages, or the automatic pagination will not work properly. 



m 



Input Interface 
PAGINATE B 



=1 <NPAGE only; set automatically by 
PRNTHDR > 



LINCTR 



PAGNUM 



Contains the number of the line to be 
printed on the current page (NPAGE only; 
set to zero automatically by PRNTHDR) 



Contains the 
only; set 
PRNTHDR) 
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other parameters as for WT2 (see WRTLIN dc umentation), xcept for 
PAGINATE and PAGNUM (see above) and OB (initialized to OBBEG by NPAGE)i 
note that the buffer where the translated heading message is built 
(specified by register OBBEG) must be at least two bytes greater than the 
longest line output in the translated heading (not necessarily the total 
heading size* if the original heading string contains any Vlis), in order 
to accomodate a trailing crlf. 

Output Interface 

Same as for WT2 
Element Usage 

Same as for WT2 



Subroutine Usage 

Same as for WT2 

Exits 

To WT2 

3.3.32 PROC User Exits 
Summary 



r 
r 

I 



A user-written program can gain control during execution of a PROC by using the 
Uxxxx or Pxxxx command in the PROCi where "xxxx" is the hexadecimal mode-id of 
the user routine. The routine can perfor special procsing, and then return 
control to the PROC processor. Necessarily* certain elements used by the PROC 
processor are maintained by the user program; these elements are marked wit 
an asterisk in the table below. 






Input Interfe 

♦BASE 

♦MODULO 

♦SEPAR 

*PQBEO 



D 
T 
T 



+ Contain the base* modulo* 
+ of the master dictionary 



and separation 



Points one 
statement 



prior to the first PROC 



*PQEND 



Points to the terminal AM of the PROC 



PQCUR 
IR 

♦PBUFBEG 



S + Point to the AM following the Uxxxx or 
R + Pxxxx statement 

S Points to the buffer containing the 
primary and secondary (if any) input 
buffers; buffer format is SB ... 
Primary input ... SM SB ... Secondary 
input ... SM 



♦ISBEG 



Points to the buffer containing 
primary output line 



the 



♦STKBEG S Points to the buffer containing "stacked 

input" (secondary output) 
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IB 

*SR35 

»SBIT 
*ZBIT 

*SC2 
IS 



B 
B 



UPD 



R 



Output Interface 



IR 



R 



IS 


R 


UPD 


R 


IB 


R 



Exit Convention 



The 



Is the current input buffer pointer (may 
point within either the primary or 
secondary input buffers) 

Points to the beginning of the current 
input buffer 

Set if a ST ON command is in effect 

Reset to identify the PROC processor in 
certain system subroutines 



Contains a blank 
SBIT on 



SBIT off 



Points to the last Points to the last 

byte moved into byte moved into 

the secondary the primary output 

output buffer buffer 

Points to the last Points to the last 

byte moved into byte moved into 

the primary output the secondary 

buffer output buffer 



Points to the AM preceding the next PROC 
statement to be executed; may be altered 
to change PROC execution 

•*■ May be altered as needed to alter data 
+ uiithin the input and output buffers* but 
H- the formats described above must be 
maintained 



normal method of returning control to the PROC processor is to execute an 
external branch instruction <ENT) to 2»PR0C-I. To return control and also 
reset the buffers to an empty condition* entry l.PROC-I may be used. If it is 
necessary to abort PROC control and exit to WRAPUP* bit PQFLG should be reset 
before branching to any of the WRAPUP entry points (see WRAPUP documentation). 



when a PROC eventually transfers control to TCL (vi. 
operator}* certain elements are expected to be in an initial coi 
Therefore* if a user routine uses these elements* they should be reset 



Note that 
operator)* 



La the "P" 
condition, 
inererore* ir m user roui^xne uses jinsmw exeiii«rn«»* i>ney snoujia oe reset before 
returning to the PROC* unless the elements are deliberately set up as a means 
of passing parameters to other processors. Specifically* the bits ABIT through 
ZBIT are expected to be zero be the TCL-II and ENGLISH processors. It is best 
to avoid usage of these bits in PROC user exits. Also* the scan character 
registers SCO* SCi* and SC2 must contain a SB* a blank* and a blank* 
respectively. 



3. 3. 33 PRTERR 



PRTERR is used to retrieve and print a message from the system file ERRMSG. A 
parameter string may be passed to the routine* in which case the parameters are 
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formatted and inse/ted according to the codes in the message item. 



Items in the ERRMSG file consist of an arbitrary number of lines (uihere a line 
is delimited by an AM}> with each line containing a code letter in column one> 
possibly followed by a string or numeric parameter (numeric parameters enclosed 
in parentheses). The possible codes and their meanings are listed below- 
(Brackets indicate optional parameters. > 



A C(dec. #)3 



Parameter insertion code; the next 
parameter from the parameter string, if 
any, is placed into the ouput buffer; if 
"dec. #" Is specified, the parameter is 
left-justified in a blank field of that 
length 



R C(dec. #)3 



Like A, only 
right-justified, in 
Blanks if "dec. #" 



the parameter is 
a field of "dec. #" 
Is specified 



r 



H string 



E Cstring3 



The character string is placed in the 
output buffer (no blank is necessary 
between the code letter and the 
beginning of the string) 

The message item-id, surrounded by 
brackets, is placed into the outpur-t 



f 



L C(dec. #)3 



The output buffer is printed, and the 
specified number of line feeds is output 
(one if "dec. #" Is not specified) 



S C(dec. #)3 



The pointer to the current position in 
the output buffer is repositioned to the 
specified column (column one if 
"dec. #" Is not present) 



X (dec. #) 



The pointer to the current position in 
the output buffer is incremented by the 
specified number of spaces; if the end 
of a line is reached (see below), the 
buffer is printed and a new line is 
started 



The system time in HH: MM: SS is added to 
the output buffer 



D 



The system date in DD MMM YYYY format is 
added to the output buffer 



Input Interface 
TS R 



Points one prior to the message item-id, 
which must be terminated by an AM; 
parameters optionally follow, being 
delimited by AM's; the parameter string 
must end with a SM 



EBASE D 
EMOD T 
ESEP T 

CHAPTER 3 



-«■ Used as the base, modulo, and separation 

•4- for the message file if EBASE is 

+ non-zero; if EBASE is zero, PRTERR 

attempts to set EBASE, EMOD, and ESEP to 
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the parameters for the system file 
ERRMSG> and exits abnormally if unable 
to do so 



MBASE D + Used as the parameters for the master 

MMOD T + dictionary if necessary to set up EBASEf 

MSEP T + EMOD, and ESEP, but PRTERR exits 

abnormally if MBASE is zero 



OBSIZE 



OBBEG 
OBEND 



T Contains the maximum number of 
characters to be output on a line 
(normally set at logon timeT 

S + Point to the beginning and end of the 
S +• output buffer (normally set at logon 
time) 



Other elements as required by WRTLIN (see WRTLIN documentation) 
Output Interface 



TS 



EBASE 

EMOD 

ESEP 



LINCTR 
PAGNUM 



R Points to the AM after the message 
item-id if no parameters are processed* 
otherwise to the AM or SM after the last 
parameter processed 

D '+■ Contain the base* modulo> and separation 
T + parameters for the system file ERRMSG if 
T -<- EBASE was originally zero (and the file 
was successfully retrieved) 

T + Updated if bit PAGINATE is set 
T + 



Element Usage 



SB60 


B 


+ 




SB61 


B 


+ 




CTRO 


T 


+ 




T6 


T 


+ 




BASE 


D 


+ 




MODULO 


T 


+ 




SEPAR 


T 


+ 


Utility 


AF 


R 


+ 




IR 


R 


+ 




BMS 


R 


+ 




BMSBEG 


S 


+ 




OB 


R 


+ 




R14 


R 


+ 




SR4 


S 


+ 




CTRl 


T 




Used wi 


SYSRl 


S 




Used wi 



Used with "S" code messages 

INHIBIT B Set during retrieval of file ERRMSG. if 
EBASE is originally zero* and reset 
afterwords to the value on entry 

All elements used by WRTLIN (unless PRTERf? exits abnormally), and elements 
used by GBMS if PRTERR attempts retrieval of the system file ERRMSG 

CHAPTER 3 SUPPORT SOFTWARE Copyright 1987 PICK SYSTEMS 

PAGE 85 



I 



Subroutine Usage 

RETIX, WRTLIN, TILD, DATE (for "D" code messages), TIME <for "T" code 
messages), GBMS (for retrieving ERRMSG) 

Six additional levels of subroutine linkage required if GBMS attempts 
retrieval of an ERRMSG file which is a "Q" code item, otherwise four 
levels required 

Exits 

To 2, ABSL if EBASE and MBASE are both zero 



3. 3. 34 RELBLK - RELCHN - RELOVF 



r 
r 
r 



These routines are used to release frames to the overflow space pool. RELOVF 
is used to release a single frame, RELBLK is used to release a block of 
contiguous frames, and RELCHN is used to release a chain of linked frames r 
(which may or may not be contiguous). A call to RELCHN specifies the first FID | 
of a linked set of frames; the routine will release all frames in the chain 
until a zero forward link is encountered. 



Input Interface 
OVRFLW D 



DO 



D 



Contains the FID of the frame to be 
released (for RELOVF), or the first FID 
of the block or chain to be released 
(for RELBLK and RELCHN, respectively) 

Contains the number of frames (block 
size) to be released, for RELBLK only 



r 
r 
r 



Output Interface 




None 






Element Usage 






OVRFLW 


D 


+ 


R14 


R 


+ Utility 


R15 


R 


+ 


DO 


D 


+ 


Dl 


D 


+ Used by 


D2 


D 


+ 



Subroutine Usage 

SYSRELi two internal subroutines 

Two additional levels of subroutine linkage required 



3. 3. 35 RET I RET IX RETIXU 

These are the entry points to the standard system routine for retrieving an 
item from a file. The item-id is explicitly specified to the routine, as are 
the file parameters base, modulo, and separation. Additionally, the number of 
the first frame in the group in which the item may be stored must be specified 
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if the entry RETIXX is used. The other entries perform a "hashing" algorithm 
to determine the group (see HASH documentation). The group is searched 
sequentially for a matching item-id. If the routine finds a match, it returns 
pointers to the beginning and end of the item* and the item size (from the item 
count field). If entry RETIXU is used, the group is locked during processing* 
preventing other programs from accessing (and possibly changing) the data. 

The item-id is specified in a buffer defined by register BMSBEG; if entry RETI 
is used/ register BMS roust point to the last byte of the item-id. and an AM 
will be appended to it by the routine. For all other entry points, the item-id 
must already be terminated by an AM. 



Input Interface 
BMSBEQ S 
BMS R 



Points one byte before the item-id 

Points to the last character of the 
item-id. for RETI, RETIXX. and UPRETIX 
only 



BASE D + Contain the base, modulo, and separation 
MODULO T +• of the file to be searched 
SEPAR T + 

RECORD D Contains the beginning FID of the group 

to be searched, for RETIXX only 

Output Interface 

BMS R + Point to the last character of the 
BMSEND S + item-id 

RECORD D Contains the beginning FID of the group 

to which the item-id hashes (set if HASH 
is called) 



NNCF 
FRMN 
FRMP 
NPCF 



H 
D 
D 
H 



+ Contain the link fields of the frame 

+ specified in RECORD; set by RDREC 

+ 



XMODE 



RMBIT 



B 



=0 
Item Found: 
= 1 



Item Not Found: 
=0 



SIZE 



-value of item 
count field 



=0 



R14 



R Points one prior 
to the item count 
field 



Points to the last 
AM of the last item 
in the group 



IR 



R Points to the 

first AM of the 
item 



Points to the AM 
indicating end of 
group data (=R14+1) 



SR4 



S 



CHAPTER 3 



Points to the 
last AM of the 
item 
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Element Usage 

None (except D0> Di, and R15) 

Subroutine Usage 

RDREC (local), HASH (except for RETIXXi local), GLOCK (RETIXU only), 
IROVF (for IR overflow space handling and error conditions) 

Three additional levels of subroutine linkage required (for IROVF and 
GLOCKi RDREC and HASH require one level) 

Exits 

If the data in the group is bad - premature end of linked frames, or non- 
hexadecimal character encountered in the count field - the message 

<5R0UP FORMAT ERROR xxxxxx 

is returned (where xxxxxx is the FID indicating where the error was 
found), and the routine returns with an "item not found" condition. Data 
is not destroyed, and the group format error will remain. 

3. 3. 36 SETLPTR - SETTERM 

These routines are used to set output characteristics such as line width, page 
depth, etc. , to the previously-specified values for either the terminal or the 
line printer. In addition, the current line number and page number are saved 
50 that when switching from terminal to line printer output, say, and then 
switching back, pagination will continue automatically from the previous 



Reset by SETTERMi set by SETLPTR 

Contains the current line number 

Contains the current page number 

Contains the size of the OB buffer 

Contains the number of printable lines 
per page for the terminal or line 
printer 

Contains the size of the output (OB) 
buffer for the terminal or line printer 



Contains the current line number for the 
terminal or lineprinter 



Contains the current page number for the 
terminal or line printer 



r 

r 
r 
r 
r 
( 



values. 




Input Interface 


LPBIT 


B 


LINCTR 


T 


PAGNUM 


T 


OBSIZE 


T 


TPAGSIZE 


T 


or 




PPAGSIZE 


T 


TOBSIZE 


T 


or 




POBSIZE 


T 


TLINCTR 


T 


or 




PLINCTR 


T 


TPAGNUM 


T 


or 




P PAGNUM 


T 



Note: TPAGSIZE, TOBSIZE, TLINCTR, and TPAGNUM are required only by 
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PAOSIZE 


T 


OBSIZE 


T 


LINCTR 


T 


PAGNUM 


T 


TLINCTR 


T 


or 




PLINCTR 


T 


OBSIZE 


T 


R14 


R 


OBEND 


S 



SETTERMi PPAGSIZE, POBSIZE, PLINCTR, and PPAGNUM are required only by 
SETLPTR 

Output Interface 

+ 

+ set to the appropriate characteristics 

+ for terminal or line printer output 

+ 

=LINCTR; TLINCTR set by SETLPTR, PLINCTR 
set by SETTERM 

=79 if originally zero 

+ =OBBEG+OBSIZE 

+ 

The area from the address pointed to by 0BBE6 to that pointed to by Obend 
is filled with blanks 



3. 3. 37 SETUPTERM 

This routine sets the default values for terminal and line printer 
characteristics <as used by INITTERM). 

Input Interface 

BSPCH C Contains the character to be echoed for 

a backspace 

LFDLY T Contains the number of "fill" characters 

to be output after a CR/LF in the louier 
byte; if the upper byte is greater than 
one, a form feed is output before each 
page of paginated output, and that 
number of "fill" characters is output 

TOBSIZE T Countains the terminal line width 

TPAGSIZE T Contains the terminal page depth 

POBSIZE T Contains the printer line width 

PPAGSIZE T Contains the printer page depth 

PAGSKIP T Contains the number of lines to be 

skipped at the bottom of each page 

Output Interface 

Default values initialized as described 



I 
3. 3. 38 SLEEP - SLEEP SUB | 

I 

These routines cause the calling process to go into an inactive state for a j 
specified amount of time. If SLEEPSUB is used, either the amount of time to 
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sleep or the time at which to wake up may be specified. 
Input Interface 



DO 



RMBIT 



D Contains the number of seconds to sleep* 
up to 86400 (one day)» or, for SLEEPSUB> 
the time to wake up (number of seconds 
past midnight) if RMBIT is reset 

B For SLEEPSUB only, set if DO contains 
the number of seconds to sleep, and 
reset if it contains the time to wake up 



Output Interface 

None 
Element Usage 



T2 
D2 



T + Used by SLEEPSUB only, on a monitor call 
D -t- to get system time 



Subroutine Usage 

SLEEP used by SLEEPSUB 

C3ne additional level of subroutine linkage required by SLEEPSUB, none by 
SLEEP 

3. 3. 39 SORT 

This routine sorts an arbitrarily long string of keys in ascending sequence 
only; the calling program must complement the keys if a descending sort is 
required. The keys are separated by SM's when presented to SORT; they are 



[ 

r 
r 
r 
r 
r 

r 
I 

r* 

I 
I 



returned separated by 
than the SM and SB may 



SB's. Any character, including system delimiters other 
be present within the keys. 



An n-way polyphase sort-merge sorting algorithm is used. The original unsorted 
key string may "grow" by a factor of 10%, and a separate buffer is required for 
the sorted key string, which is about the same length as the unsorted key 
string. The "growth" space is contiguous to the end of the original key 
stringi the second buffer may be specified anywhere. SORT automatically 
obtains and links overflow space whenever needed. Due to this, one can follow 
standard system convention and build the entire unsorted string in an overflow 
table with OVRFLCTR containing the beginning FID; the setup is then: 



f 



start of 

unsorted keys 

< /_ 



end of "growth" start of 

unsorted keys space second buffer 



The second buffer pointer then is merely set at the end of the "growth" space, 
and SORT is allowed to obtain additional space as required. 

Alternately, the entire set of buffers may be in the IS or OS workspace if they 
are large enough. 

Input Interface 

SRI S Points to the SM preceding the first key 
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SR2 S Points to the SM terminating the last 

key 

SR3 S Points to the beginning of the second 

buffer 

Output Interface 

SRI S Points before the SB preceding the first 

sorted key (the exact offset varies from 
case to case); the end of the sorted 
keys <separated by SB's) is marked by a 
SM 

Element Usage 



MBIT 


B 


+ 


LBIT 


B 


+ 


SBl 


B 


+ 


SC2 


C 


+ 


XMODE 


T 


+ 


DO 


D 


+ 


IS 


R 


+• 


OS 


R 


+ 


BMS 


R 


+ 


TS 


R 


+ Utility 


CS 


R 


+ 


R14 


R 


+ 


R15 


R 


+ 


SI 


S 


+ 


S2 


S 


+ 


S3 


S 


+ 


S5 


S 


•♦• 


S7 


S 


+ 


S8 


S 


+ 


S9 


S 


•+• 



Subroutine Usage 
COMP 

GWS used with XMODE 
Four additional levels of subroutine linkage required 

3.3.40 TCL-II MD200 MD201 

These are the entry points (not subroutines) into the TCL-II processor, used 
whenever a verb requires access to a file* or to all or explicitly specified 
items within a file. MD200 is entered from the TCL-I processor after decoding 
the verb (primary mode-id = 2). MD201 is used by TCL-II itself to regain 
control from WRAPUP under certain conditions (see below). TCL-II exits to the 
processor whose mode-id is specified in M0DEID2j typically processors such as 
the EDITOR, ASSEMBLER, LOADER, etc. Use TCL-II to feed them the set of items 
wich was specified in the input data. 

On entry, TCL-II checks the verb difinition for a set of option characters in 

attribute 5; verb options are single characters in any sequence and 
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combination, and are listed below (all other characters are ignored). 

Option Meaning 

C Copy - items retrieved are copied to the 

IS workspace 

E Expand - items retrieved are expanded 

and copied to the IS work space (see 
EXPAND documentation); ignored if the 
"C" option is not present 

F File access only -■ file parameters are 

set up but any item-list is ignored by 
TCL-IIi if this option is present. any 
others are ignored 

N New npm acceptable - if the item 

specified is not on gile. the secondary 
processor still gets control (the 
EDITOR. for example, can process a new 
item) 

P Print -- on a full file retrieval (all 

items). the item-id of each item is 
printed as it is retrieved 

U Updating sequence flagged - if items are 

to updated as retrieved, this option is 
mandatory 

Z Final entry required - the secondary 

processor will be entered once more 
after all items have been retrieved (the 
COPY processor. for instance, uses this 
option to print a message) 

The input data string to TCL-II consists of the file-name (optionally prec 
by the modifier "DICT". which specifies access to the dictionary of the fi 
followed y a list of items. or an asterisk ("#") specifying retrieval of 
items in the file. The item-list may be followed by an option list (opt 
for the secondary processor). which must be enclosed in parentheses} 
GETOPT documentation for further information about options. 

Input Interface 

IR R 

SR4 S 
M0DEID2 T 



I 



I 
ed 1. 

ions I 



ed 
le) 



see 



Points to the 
the verb 



AM before attribute 5 of 



BMSBEG 



Points to the AM at the end of the verb 

Contains the mode-id of the processor to 
which TCL-II transfers control (assuming 
no error conditions are encountered) 

Points one prior to an area where the 
file name is to be copied, if the "F" 
option is present. otherwise one prior 
to an area where item-ids are to be 
c opied 
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ISBEG 



Points one prior to an area where items 
are to be copied^ if the "C" option is 
present 



Elements as required by GETFILE 
Output Interface 



DAFl 
DAF2 
DAF3 
DAF4 
DAF5 
DAF6 

DAFIO 

DAFll 



B 
B 
B 
B 
B 
B 

B 

B 



Set if the 
Set if the 
Set if the 



iiyii 

"C" 



option is specified 
option is specified 
option is specified 



Set if the "N" option is specified 
Set if the "Z" option is specified 



Set if the 
if a full 
<no "F" option) 



"F" option is specified* or 
file retrieval is specified 



Set if more than one item is specified 
in the input ddta« but not a full file 
retrieval i"*"^ 

Set if the "E" Vption is specified 



Note: 



the above bits are not initialized to zero 



DAF8 

DAF9 
IS 



B 







B 
R 



Set if a file dictionary is being 
accessed* otherwise reset < f rom GETFILE) 



ISBEG 
BMSBEG 

RMBIT 



SBASE 
SMOD . 
SSEP 

BASE 

MODULO 

SEPAR 

DBASE 

DMOD 

DSEP 



S 
S 

B 



D 
T 

T 

D 
T 
T 

D 
T 
T 



=0 



Points one past the end of the file name 

in the input string if the "F" option is 

present* points to the last AM in the 

copied item if the "C" option is 

present* otherwise to the end of the 
input string 

+ Unchanged 
+ 

Set if the file is successfully 
retrieved if the "F" option is present 

+ Contain the base* modulo* and separation 

+ of the file being accessed 

+ 

+ =SBASE* SMOD* SSEP on the first exit 
+ only <from MD200) 

+ 

■*■ Contain the base* modulo* and separation 
+ of the dictionary of the file being 
+ accessed if the "F" option is present 
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SCO C Contains a SB if the last item-id in the 

input string is enclosed in quote marks/ 
otherwise contains a blank 

The following specifications are meaningful only when the "F" option is 
not present: 

SRO S Points one prior to the count field of 

the retrieved item 

SIZE T Contains the value of the count field of 

the retrieved item 

SR4 S Points to the last AM of the retrieved 

item 

ISEND S =IS if the "C" option is present 

IR R Points to the last AM of the retrieved 

item to be copied^ if the "C" option is 
present* otherwise points to the AM 
following the item-id 

RMODE T =MD201 if items are left to be 

processed* otherwisesO 

XMODE T =0 

Elements as set up by GETOPT if the input data contains an option sing 

Element Usage 

CI T Used for error messages 

Elements used by the various subroutines below 

Subroutine Usage 

GETFILE; if no "F" option: OETOPT if the input data contains an option 
string* QETITM for full file retrieval, RETIX and one internal subroutine 
if not full file retrieval* SETSPC if more than one item (but not "#") 
specified* EXPAND if the "E" option is present, WRTLIN if the "P" option 
is present 

MD201 only: WSINIT; GNTBLI if more than one item <but not "♦") specified 

MD995 and BMSOVF used with XMODE 

Seven additional levels of subroutine linkage required by MDSOO* five 
additional levels required by MD201 for full file retrieval* otherwise 
three levels required 

Error Conditions 

The following conditions cause an exit to the WRAPUP processor with the 
error number indicated: 

Error Condition 

l^ File ha>^'i^ Hf'^jin-n 

13 DL/ID item not found* or in bad format 
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I 

I 



r 
I 



L 



199 

200 
201 

202 



203 
209 



IS work space not big enough when the 
"C" option is specified 



No file name specified 



A'k 



File name illegal or incorrectly defined 
in the M/DICT ,,<^,, I p<>.-«Jer C 



Item not on file; all messages of this 

type are stored until all items have 

been processed; items which are on file 
are still processed 

No item list specified 

The format of the option list is bad 






I i Mil ; 



3. 3. 41 TIHE 



DATE - TIMDATE 



These routines return the system time and/or the system date, and store 
it in the buffer area specified by register R15. The time is returned 
as on a 24-hour clock. 



Entry 



Buffer size 
required (bytes) 



TIME 


9 


DATE 


12 


TIMDATE 


22 


Input Interface 




R15 R 


Po 


Output Interface 





R15 



R14FID 


Element 


Usage 


DO 




Dl 




D2 




D3 





D 



Format 

HH: MM: SS 

DD MMM YYYY 

HH: MM: SS DD MMM YYYY 



Points one prior to the buffer area 



Points to the last byte of the data 
stored; the byte immediately following 
contains a blank 

=0 (DATE and TIMDATE only) 



D + Used by TIME and TIMDATE only 
D + 
D + 



Subroutine Usage 

TIME used by TIMDATE; MBDSUB used by TIME 



Two additional levels of subroutine linkage required by TIMDATE* one level 
required by TIME# none by DATE 
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3. 3. 4i 



TPREAD TPWRITE 



TPREAD reads a specified number of bytes from the tape into a buffer pointed toi 
by R15 at entry to the routine. 



TPWRITE writes 
the tape. 



a specified number of bytes from the buffer pointed to by R15 to 



Both TPREAD and TPWRITE are using a virtual tapedrive with common routines 
The initial execution of either entry point causes initialization o 
buffers of a size sufficient to contain TPRECL* which is assigned d 
execution of the T-ATT verb* or is obtained by execution of the RDLBL verb from 

i the standard R77 tape label. These buffers 
processing after RHODE and WMODE processing are 

returns to TCL or the CHAIN or PROC analogs to 



the tape record size included 
are released during WRAP-UP 
completed. The process 
TCL. 



then 



At all times after initialization R7 points into the current ad or write 
location in the tape buffers and must be saved and restored if R7 is to be used 
for other purposes between reads or writes. In both cases the contents 
accumulator. DO. is the number of characters to transfer to or from the 
buffer. The alignment of R7 in the buffer and the relative size of TPRECL and 
DO do not need to be considered. 



f 

f twor 

uring I 

of ther 
tape I 

r 



If DO is zero on a read, then TPREAD will return to the calling routine with R7 
pointing one before the next string to be read. XMODE will be set to the tape 
handler routine. and the old XMODE. if any. will be in YMODE. This allows! 
transparant tape reading using MUD or MIIT R7. XX. A forward link zero fault! 
on R7 will cause the next tape record to be read into the last buffer. R7 to be 
reset to the beginning of the current bufferi and execution then continues 
the Mil instruction. The user is responsible for handling an et 
condition when reading the tape. When this occurs, the EOFBIT will be set. 



mtinues inf 
>nd-of-file| 



If DO is zero on a write. then TPWRITE will fill the rest of the tape buffer 
with the character pointed to by R15. which will cause the buffer to be written 
to tape. This is recommended in order to send the last partial tape record to 
the tape, after which WEOF should be executed. 



I 



Input Interface 



ATTACH 
TPRECL 
R15 

R7 



DO 



B 
T 
R 



Must be set. Use T-ATT verb. 

As above. 

Points to one byte before the source or 

destination buffer start location. 

Must be the same at the beginning of the 

next tape operation as it was at the end of 

the last tape operation. Initialized by TPREAD 

TPWRITE on first-time call. 

Co ns the number of bytes to be transferred 

to or from the tape buffers. 



Output Interface. 



R15 R 

DO D 

EOFBIT B 

EOTBIT B 
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Points at 
buffer if 
Is zero. 
Indicates 
Indicates 
tape handler will 
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the end of the source or destination 
DO was non-zero; unchanged if DO was 



zero. 



end-of-file on 

end-of-tape if 

rewind 

96 



read if set. 
seti the 
the tape and 
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tell the operator to mount the next tape> 
however. This may be executed in the 
middle of an Mil instruction^ as above^ 
which will then continue, to execute when the 
new reel in mounted and the label handled. 



Element Usage. 



The tape handler will stack and restore most 
The following elements are modified) however. 



of the elements which it uses. 



T5 


T 


T6 


T 


T7 


T 


YMODE 


T 


D2 


D 


R2iH0 


H 


R4 


R 


R7 


R 


R14 


R 


R15 


R 



For any current XMODE 

Temporary strage 

For a flag 

Is used as a pointer to the text block 

in the write-label routine. 

As the tape buffer pointer 

Globally 

As not&d above. 



Subroutine usage. 



TPREAD and TPWRITE use an extensive set of 

that element usage is transparant outside 

seven levels of subroutine usage if either encounters a parity error while 

handling a label on the second and following reels in a set of tapes. 



internal subroutines in such a way 
of the above set. Both may go to 



Error conditions are sent to the terminal by the tape handler by means of the 
PRINT, CRLFPRINT and PCRLF routines for attention by the operator in a manner 
transparant to the calling routine. They include no write ring* parity error 
after ten retries, tape not ready, and block transfer incomplete messages and 
recovery alternatives. 



3. 3. 43 TSINIT 

This routine initializes the register triad associated with the TS work space. 

Input Interface 

None 

Output Interface 

TS R + Point to the beginning of the TS work 
TSBEG S + space (PCB+5) 
(R14 R) + 

TSEND S + Point to the last byte of the TS work 

(R15 R> + space (511 bytes past TSBEG); note this 

is an unlinked work space 

the first byte of the work space is set to x'OO'. 

Element Usage 

DO 
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Subroutine Usage 

One internal subroutine 

One additional level of subroutine linkage required 

3. 3. 44 UPDITM - UPDITMX 



[ 
I 

r 



UPDITM and UPDITMX perform updates to a disc file defined by its base FID» 
modulo> and separation. If the item is to be deleted^ the routines compress 
the remainder of the data in the group in which the item resides; if the item 
is to be added> it is added at the end of the current data in the group; if r 
the item is to be replaced^ it is replaced in places sliding the remaining i 
items in the group to the left or right as necessary. ■ 

If the update causes the data in the group to reach the end of the linked T 
frames, NEXTOVF is entered to obtain another frame from the overflow space pool I 
and link it to the previous linked set; as many frames as required are added- 
If the deletion or replacement of an item causes an empty frame at the end of r" 
the linked frame set, and that frame is not in the "primary" area of the group, | 
it is released to the overflow space pool. 



Entry UPDITM uses PRETIXU to retrieve the item to be updated loc k ing the group. 
Once item is retrieved, processing cannot be interrupted until completed. 
Input Interface 



r 
r 



BMSBEG 



TS 



CHS 



BASE 

MODULO 

SEPAR 



D 
T 
T 



Points one prior to the item-id of the 
item to be updated; the item-id must be 
terminated by an AM 

Points one prior to the item body to be 
added or replaced (no item-id or count 
field); not needed for deletions; the 
item body must be terminated by a SM 

Contains the character 'D' for item 
deletion; 'U' for item addition or 
replacement 

+ Contain the base, modulo, and separation 

+ of the file being updated 

+ 



The following specifications are meaningful only for UPDITMX: 
RMBIT B 



R14 



RECORD 



Set if the item to be updated exists in 
the file, otherwise reset 

Points one prior to the item count field 
if the item exists, otherwise points to 
the last AM of the last item in the 
group 

Contains the beginning FID of the group 
containing the item 



Output Interface 
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Remainder of the last frame in the group filled with blanks 
Element Usage 



D3 


D 


+ 


D4 


D 


+ 


NNCF 


H 


+ Utility 


FRMN 


D 


+ 


FRMP 


D 


+• 


NPCF 


H 


+ 



Elements used by the various subroutines below 

Subroutine Usage 

RDREC; HASH, QLOCK, and RETIXU RELCHN if overflow frames returned; 
WTLINK if data ends in the last frame of "prime" space, or in overflow 
space; COPYALL if the item is on file; BKUPD; OUNLOCK 

NEXTOVF, BMSOVF, and IROVF used with XMODE 

Four additional levels of subroutine linkage required by UPDITM, three by 
UPDITMX 

Error Conditions 

1. If the group data is bad (premature end of linked 
frames, or non-hexadecimal character found in an item 
count field), IROVF is entered to print a warning 
message, and the group data is terminated at the end of 
the last good item before processing continues 



3. 3. 45 WHOSUB 

This routine returns the line number and current account name associated 
with the process as a string in the TS work space. 



Input Interface 
TSBEG S 

BMSBEG S 

Output Interface 
TSBEG S 



TS 



R 



Points one before the area where 
returned string is to be stored 



the 



Points one before an area which RETIX 
can use in retrieving an item from the 
system file ACC 



Points one before the returned string, 
which consists of the line number (in 
decimal digits), a space, and the 
account name as found in the system file 
ACC for the associated PCB; if the ACC 
entry is not found, "UNKNOWN" is 
returned 



Points to the last character 
returned string 



in the 
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TSEND S Points to a SM placed at TS+1 

D3 D Contains the line number associated with 

the process 

BMSBEO S Points one before the item-id used in 

accessing the ACC file« if the file is 
present; the item-id consists of four 
characters representing the PCB in 
hexadecimal digits 

BHS R Points to the last character of the 

above item-id if the ACC file is 
present* set by RETI 

RMBIT B Set if the ACC file is present and the 

appropriate item is found* otherwise 
reset 



Element Usage 



R15 


R 


+ 


Utility 


S4 


S 


+ 




T4 


T 


+ 




T5 


T 


+ 




DO 


D 


+ 


Used by MBDSUB 


Di 


D 


+ 




D2 


D 


+ 




R14 


R 


+ 




BASE 


D 


+ 




MODULO 


T 


+ 




SEPAR 


T 


+ 


Used by GETACBMS 


T6 


T 


+ 




BMS 


R 


+ 




SRI 


S 


+ 




RECORD 


D 


+ 




NNCF 


H 


+ 




FRMN 


D 


+ 




FRMP 


D 


+ 




NPCF 


H 


+ 


Used by RETI <ai 


XMODE 


T 


-1- 


file is a "Q" it( 


DAF9 


B 


+ 




SIZE 


T 


+ 




IR 


R 


+ 




SR4 


S 


+ 





f 



Subroutine Usage 

LINESUBi MBDSUBi SETACBMSj OPCBO if the ACC file is found; RETI if the 
ACC entry for the process is found 

Five aditional levels of subroutine linkage required 



3. 3. 46 WRAPUP PROCESSOR 

MD99 MD993 MD994 MD995 
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These are 

processing 

messages as required* 

another TCL statement. 

entered at TCLXIT or 

routine to which WRAPUP 

that WRAPUP aluays set 

exiting. 



the entry points into the system routine which "wraps up" the 
initiated by a TCL statementi performs disk updates and prints 
and reinitializes functional elements for processing 
WRAPUP may also be treated as a subroutine (except when 
NSPCQ) by setting tally RHODE to the mode-id of the 
should return control after it is done. Notei however> 
the return stack to a null or empty condition before 



The various entry points are provided to simplify the interface requirements 
when WRAPUP is used to store or print messages from the ERRMSG file; the 
features of each can be seen in the following table: 



MD993 



MD994 



CI contains a message number; C2 
contains a numeric parameter; the value 
in Cl» converted to an ASCII string* is 
used as the item-id of an item to be 
retrieved from the message file 
(normally ERRMSG); the message is set up 
in the history string (see below)* and 
control passes to MD99 

CI contains a message number; IS points 
one before the beginning of a string 
parameter* which is terminated by an AM 
or SM* the message is set up in the 
history string and control passes to 
MD99 



MD995 



Like MD994* except the 
is stored at BMSBEG+l 
SM 



string parameter 
through an AM or 



MD99 



MD999 



Message numbers (without any parameters) 
may be stored in REJCTR* REJO. and REJl 
(no action is taken if zero); if RMODE 
is zero* messages are printed regardless 
of the value of VOBIT (see below); the 
messages are set up in the history 
string and control passes to MD999 



The history string is processed, and 
process work spaces are reinitialized* 
control passes to TCL if RMODE 
otherwise to the routine 
RMODE 



is zero* 
specified by 



TCLXIT 



NSPCQ 



The history string is set null, PROC 
control is unconditionally reset* and 
control passes to TCL (this entry point 
is used by the DEBUG "END" co^mmand) 



In addition to the 
at TCLXIT* all 
associated with 
unlocked* and the 



functions performed 
disk group locks 

the process are 
overflow management 



routine in mode OFl 
currently locked by the 



is unlocked 
process 



if 



Input Interface 
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HSBE8 S + Point one before the beginning and to 
HSEND S + the end* respec tivelyi of the history 

string; if HSBEG=HSEND» the string is 

null 

Three types of history string elements are recognized by WRAPUP; all 
others are ignored. The type of processing done for each element depends 
on the second) and possibly third character of the element string. (The 
quote marks in the following examples are not part of the strings. > 

1. Output message 

SM "0" AM message-id AM (parameter AM. . . ) SM 

where "message-id" is the item-id (normally a decimal numeric) of an 
item in the message file 

The parameter string is passed to PRTERR for message formatting (see 
PRTERR documentation) 

2. Disk Update/Delete 

SM "DU" AM base VM modulo VM separation AM item-id 
AM item-body AM SM 

SM "DD" AM base VM modulo VM separation AM item-id 
AM SM 

where "DU" causes the item in the file specified by "base", "modulo", 
and "separation" to be replace, and "DD" deletes it 

3. (End of history string) 

SM "Z" 

Conventionally, a process wishing to add data to the history string begins 
at HSEND+li after the additional elements have been added, the string is 
terminated (once again) by a SM and "Z", and HSEND is set pointing to this 
SM. 



WMODE 



If non-zero, the value is used as the 
mode-id for an indirect subroutine call 
(BSLI #) executed immediately after the 
history string has been processed, and 
before work space and printer 
characteristics are reset; this allows 
special processing to be done on any 
entry into WRAPUP 



RMODE 



If non-zero, WRAPUP exits to 
specified mode-id instead of to TCL 



the 



VOBIT B If set, and RMODE is non-zero, messages 

are stored in the history string, for 

output on a later entrij into WRAPUP with 
RMODE zero 



REJCTR 




T 


RE JO 




T 


REJl 




T 


CHAPTER 


3 


< 



+ May contain message numbers which do not 
+ require parameters; REJCTR is always 
+ tested first, then REJO, and then REJl; 
no action is taken on a zero value; a 
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CI 


T 


C2 


T 


LPBIT 


B 


OVRFLCTf 


? D 



USER 



Output Interface 



HSEND 



value of 9999 is used internally by 
WRAPUP to identify which messages have 
been processed^ and should not normally 
be used as an input value for REJO or 
REJl 

+ (See MD993, MD994, and KD995 above) 



If sett all open spool files are closed 

If non-zero, used as the starting FID of 
a linked set of overflow frames which is 
released to the system overflow space 
pool; used by SORTi for instance* to 
store the beginning FID of a sorted 
table* in which case the overflow space 
used by SORT is always released* even if 
processing is aborted by an "END" 
command from DEBUG 

Used to control the final exit from 
WRAPUP when RMODE=Oi see "exits" 



=HSBEG except when messages are stored 
instead of printed 



VOBIT 


B 


+ 




LPBIT 


B 


+ 




WMODE 


T 


+ 


=0 


REJCTR 


T 


+ 




REJO 


T 


+ 




REJl 


T 


+ 





Return stack 



Null: RSEND=X'01B0'* RSCWA=X '0184 '* and 
the rest of the return stack is filled 
with X'FF' 



RHODE T Set to zero by TCLXIT and NSPCQ 

INHIBIT B Set to zero by NSPCQ 
Elements as initialized by WSINIT (and ISINIT if RMODE=0) 
The following elements are set up only if RMODE=0: 



XMODE 


T 


+ 


=0 


OVRFLCTR 


T 


+ 




IBSIZE 


T 




= 140 


Element Usage 








UPD 


R 






BASE 


D 


+ 




MODULO 


T 


+ 


Used in disk updates 


SEPAR 


T 


+ 




CHS 


C 


+ 
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R15 R Used by NSPCQ 

Elements used by the subroutines below 

Subroutine Usage 

WSINITi MBDSUB for message numbers* PRTERR to print messages; CVTNIS 
and UPDITM to do disk updates; CRLFPRINT if a format error is found in a 
"DD" or "DU" history string element; PCLOSEALL if LPBIT=li if RMODE=0: 
ISINIT< RESETTERM, RELSP <if USER=2), RELCHN <if OVRFLCTR is non-zero); 
UNLOCK. ©LOCK, ©UNLOCK. LINE, and TILD by NSPCQ 

Maximum of seven additional levels of subroutine linkage required if 

RELCHN must print an error message; maximum of six levels required for 

PRTERR; four levels required for UPDITM; three levels required for 
ISINIT; two levels always needed for WSINIT 

Exits 

To the entry point specified in RHODE if non-zero; to LOGOFF if USER=3 
(set, for instance, by the DEBUG "OFF" command); to MDO if USER=2 (set by 
the LOGOFF processor); otherwise to MDl 

Error Conditions 

If a format error is found in a "DD" or "DU" history string element, the 
message 

DISK-UPD STRING ERR 

is displayed, and processing continues with the next element 

3.3.47 WRTLIN WRITOB WT2 

These are the stai — 2d routines for outputting data to the terminal or line 
printer. Entry WRTLIN deletes trailing blanks from the data and then enters 
WT2. WT2 adds a trailing carriage return and line feed, increments LINCTR, and 
enters WRITOB, which outputs the data. 

The data to be output is pointed to by OBBEG, and continues through the address 
pointed to by OB. Output is routed to the terminal if bit LPBIT is off, 
otherwise it is stored in the printer spooling area. Pagination and page- 
heading routines are invoked automatically if bit PAGINATE is set. If it is 
set, then when the number of lines output in the current page (in LINCTR) 
exceeds the page size (in PAGSIZE), the following actions take place: 1) The 
number of lines specified in PAGSKIP are skipped, 2) The page number in PAGNUM 
is incremented, and 3) A new heading is printed (see PRNTHDR documentation). A 
value of zero in PAGSIZE suppresses pagination, however, regardless of the 
seting of PAGINATE. 

Input Interface 

OBBEG S Points one byte prior to the output data 

buffer 

OB R Points to the last character in the 

buffer; the buffer must extend at least 
one character beyond this location 
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LPBIT 



B 



LISTFLAO B 

NOBLNK B 

LFDLY T 

PAGINATE B 

PFILE T 



If set* output is routed to the spooler 
<Note: routine SETLPTR should be used to 
set this bit so printer characteristics 
are set up correctly) 

If set/ all output to the terminal is 
suppressed 

If set* blanking of the output buffer is 
suppressed 

Lower byte contains the number of "fill" 
characters to be output after a CR/LF 

If set> pagination and page-headings are 
invoked 

Contains the print file number for PPUT; 
meaningful only if LPBIT is set 



The following specifications are meaningful only if PAGINATE is set: 

PAGHEAD S Points one byte before the beginning of 

the page-heading message; if the frame 

field of this register is zero, no 
heading is printed 



PAGHEAD 

PAGSIZE 

PAGSKIP 

PAGNUM 
PAGFRMT 



Points to the location 
page-heading message 



of 



the 



T 
B 



LFDLY 



Output Interface 
OB R 



Contains the number of printable lines 
per page 

Contains the number of lines to be 
skipped at the bottom of each page 

Contains the current page number 

If set> the process pauses at the end of 
each page of output until some terminal 
input (even just a carriage return) is 
entered 

If the upper byte is greater than one, 
and output is to the terminal, a 
form-feed (X'OC') is output at the top 
each page, and the number in the upper 
byte is used as the number of "fill" 
characters output after the form-feed 



'OBBEG 



The following specifications are meaningful only if PAGINATE is set: 

LINCTR T + Reset appropriately 
PAGNUM T + 

T7 T Contains the original value of PAGNUM 
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Element Usage 

R14 
R15 
SYSRl 

R8 

RECORD 

OVRFLW 

SYSR2 



I 



R 
R 
S 

R 

T 
T 



T4 


T 


T5 


T 


D2 


D 


D3 


D 



+ Scratch 



+ Used by PPUT (when LPBIT is set) 



Used if PAGINATE is set and the header 
message contains a Vli 



+ Used if PAGINATE is set and the header 
•*■ message contains a SVIi 



All elements used by ATTOVF (called by PPUT if more disk space needed) 

SUBROUTINE USAGE 

FFDLY, PPUT (if LPBIT set), WT2 (if PAGINATE set and the header message 
contains a VM)* TIMDATE (if PAGINATE set and the header message contains a 
SVM), DATE (if PAGINATE set and the header message contains two SVMs in 
succession) 

Four additional levels of subroutine linkage required if LPBIT is seti 
three levels required for TIMDATE; one level always required for LFDLY 

3. 3. 48 WSINIT 



r 
r 

r 
I 
r 

5,1 



This routine initializes the following process work space pointer triads: BMS, 
BMSBEG, BMSEND; CS, CSBEG, CSEND; AF, AFBEG, AFEND; TS, TSBEG, TSEND; IB, 
IBBEG, IBEND; OB, OBBEG, OBEND; also PBUFBEG and PBUFEND. In each case, thep 
"beginning" storage register (and associated address register, if present) isl 
set pointing to the first byte of the work space, and the "ending" storage 
register is set pointing to the last data byte. All work spaces except the 
last (PROC) are contained in one frame* PBUFBEG and PBUFEND define a 4-framer 



linked work space. 
WORK SPACE 
BMSBEG-BMSEND 
AFBEG-AFEND 
CSBEG-CSEND 
IBBEG- I BEND 
OBBEG-OBEND 
TSBEG-TSEND 






SIZE (BYTES) 
50 
50 
100 

Contents of IBSIZE; max. 
Contents of OBSIZE; max. 
511 

PBUFBEG-PBUFEND 20000 (4 linked frames) 
Input Interface 



140 
140 



CHAPTER 3 SUPPORT SOFTWARE 



PAGE 106 



Copyright 1987 PICK SYSTEMS 



IBSIZE T 

OBSIZE T 

Output Interface 



Size of IB buffer 
Sire of OB buffer 



Registers are set up as described above, 
space/ except the 0B> is set to x '00 



The first byte of each work 
The OB work space is filled with 



blanks <x'20'). IBSIZE and OBSIZE are set to 140 if initially greater 
Element Usage 

R14 R 

R15 R 
Subroutine Usage 

TSININIT (local)' and one internal subroutine 

Two additional levels of subroutine linkage required 



3. 3. 49 WTBMS 

This routine converts base* modulo» and separation file parameters to 
an ASCII string. 

Input Interface 

BASE D + 
MODULO T 
SEPAR T 



TS R 
Output Interface 



+ Contain values to be converted 

+ 

Points one before the output area 



TS 
R15 



Element Usage 



R 
R 



+ Point to an AM at the end of the output 
+ string; the form of the string is BASE 

VM MODULO VM SEPAR AM (no spaces around 

delimiters) 



DO 


D 


Dl 


D 


D2 


D 


T4 


T 


T5 


T 


R14 


R 


R15 


R 



Used by MBDSUB 



Subroutine Usage 

MBDSUBi one internal subroutine 

Two additional levels of subroutine linkage required 
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3. 3. 50 XI SOS 

XISOS simply exchanges the contents of the IS/ISBEO/ISEND and OS/OSBEO/OSEND 
register triads. 



r 
r 
r 
r 
r 
( 
( 



CHAPTER 4 
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PROPRIETARY INFORMATION 

This document contains information which is 
proprietary to and considered a trade secret of 
PICK SYSTEMS It is expressly agreed that it shall 
not be reproduced in whole or part* disclosed/ 
divulged/ or otherwise made availble to any third 
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4. 1 OPERATION COMMANDS 

The form <clata specif ication> is used to indicate a pattern discussed 
in the section on data specification. 

4. 1. 1 A — address of element 

FORMAT: 

A 

will display the current instruction location of the virtual code in 
the form 

I f f. dd 

where ff is the frame number in decimal and dd is the displacement in 
hex. 

A<data specif ication> 

will display the address of the data specified in the form 

f. dd 

immediately following the command. The leading format specification 
part of the data specification is meaningless and will generate the 
response 

ILLGL SYM 

immediately after the command. 

4. 1. 2 B — break 

FORMAT: 

Bf f . dd 

will cause a break-point to be set at f f. dd. The command 

Bf f or Bf f . 

will cause every instruction in the frame ff to be a break-point. 

The command line for B may contain one or two numeric fields only. 
They may be in hex or decimal. A + will be emitted on successful 
completion of the instruction* or the message 

TBL FULL 

will be emitted. 

4.1.3 C — character display. 

FORMAT: 

C<data specif ication> 

will cause the display to be in character. Any window is allowable. 
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The command is invalid uiith the A and L commands. The command is part 
of the data specification section. 

4. 1. 4 D — display current commands. 
FORMAT: 



will cause the break-points* traces* data break-points* and frame 
replacement specifications currently in effect to be displayed. 



FORMAT: 

OB 



r 

r 

I 4. 1. 5 DB — toggle debugger availablity 

r 

uill toggle the debugger availablity flag. It must be executed from 
r SYSPROO. 

■T 4. 1. 6 E — single-step control 
* FORMAT: En 

Iuhere n eCl*2503* will cause a break and entry to the debug command 
processor on every nth instruction in the virtual code. 

f FORMAT: 
_, will turn off the single-step function. 

I 

4. 1.7 END — back to TCL. 

I FORMAT: 

END or end 

f 

I will cause the process to cleanup and return to TCL. 

4. 1. 8 F — frame replacement 

FORMAT: 

Ff f . gg 

will cause all entries to frame ff to be entries to frame gg* where ff 
and gg are either hex or decimal numbers. No variations in the syntax 
are allowed. 

4. 1. 9 Q — the go command. 
FORMAT: 

e 

will cause the process to continue execution at its current address* 
if that is allowable. 
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FORMAT: 

Off. dd 

will cause the process to commence execution at address dd in frame 
ff, where dd and ff are in either hex or decimal. No other variations 
in the syntax are allowed. If the debugger considers the address 
specified invalids either because a G has been issued after an error 
occured/ or because of an error in the syntax of the statement. the 
message. 

ADDR 

will occur. 



4. 1. 10 H — toggle echo bit 
FORMAT: 



f 

r 

4. 1. 11 I — integer display. i 



H 
will toggle the echo bit of the virtual process. 



r 
r 
r 



FORMAT: 

Kdata spec if ication> 

will cause the format of the display to be in integer. This form will 
be generated by any reference to a symbol of types H. 7, D, or F. Any 
window specification greater than 6 bytes will default to 1 byte. The 
command is invalid with the A and L commands. This command is part of 
the data specification section. 

FORMAT: 

I 

will cause further output to be in integer form. | 

4. 1. 12 K — kill break-points. j 

FORMAT: 

K I 

will cause all break-points set by a B command to be terminated. It 

will emit a -. r 

FORMAT: 

Kf f . dd ,^ 

will kill the break-point ff. dd and emit a hyphen, if it is in the * 
table; or it will emit the message 

I 
NOT IN TBL i 

if the break-point is not in the table. | 

I 
FORMAT: 

Bff or Bf f . ^ 

CHAPTER 4 SYSTEM DEBUOOER Copyright 1987 PICK SYSTEMS • 

PAGE 1 12 



r 

r 
r 

r 



r 
r 

r 



is used in the case that a break was set for all instructions in frame 
ff. 

No other variations on the syntax are allowed. 

4. 1. 13 L — frame links. 

FORMAT: 

L<data specif ication> 

will emit the link fields of the frame implied by the data 
specification. Format specifications C» I» or X in the data 
specification are meaningless and will cause an error message. 

There is no device for modification of the link fields other than the 
traditional display-and-modif iy. 

4. 1. 14 M — modal trace. 

FORMAT: 

M 

will toggle the modal trace condition. 

4. 1. 15 ME — reassigning PCB. 

FORMAT: 

ME n 

will cause all PCB and symbolically-referenced data specifications to 
USB the PCB of line n. 

FORMAT: 

ME 

will reset the pointer to your PCB. 

4. 1. 16 N — number of breaks. 

FORMAT: 

Nn 

where n is a tally> will cause the debugger to print the instuction 
address and other characteristics of n breaks of any kind before it 
enters the debug command state. If a real error is encountered, the 
debug command state will be entered immediately. 

FORMAT: 

N 

cancels this such that all breaks will enter the debug command state. 

4. 1. 17 OFF — back to logon. 

FORMAT: 
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OFF 
tuill clean up and log the process off. 

4. 1. 18 P — toggle LISTFLG 

FORMAT: 

P 

will toggle the bit that controls whether output is output or whether 
it is tossed into the bit bucket. 

4. 1. 19 R — register. 

FORMAT: 

Rn 

where n eCO* 153. if it is encounterd in the primary parse, specifies 
indirect addressing off Rn. It is part of the data specification 
section. 

4. 1. 20 T — Trace. 

FORMAT: 

T<data spec if ication> 

caused the data element specified to be emitted. along with its 
address on each break, whether the command state is entered or not. T 
must be the first character in the command string. A + will be 
emitted if the command is successful, or the message 

TBL FULL 

will be emitted. 

4. 1. 21 U — Untrace 

FORMAT: 

U 

will cause all traces set by a T command to be canceled. It will emit 
a hyphen. 

FORMAT: 

U<data specif ication> 

will cause the trace of the specified element to be canceled if it is 
in the table, and a hyphen will be emitted. If it is not in the 
table, then the message 

NOT IN TBL 

will be emitted. 

4.1.22 X — heXidecimal format. 
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FORMAT: 

X<data specif ication> 

uill cause the data to be displayed in hex. Any uindow is allowable. 
The command is invalid uiith the A and L commands. 

4. 1. 23 Y ~ data breaks. 

FORMAT: 

Y<data specif ication> 

will cause the process to break each time the data specified changes. 
Y must be the first letter in the command. This makes things run very 
slowly. Note that the current value of the data is kept with the 
address data> so that the table element size will change with varying 
sizes of data. Note that the current data is stored in aligned words. 
Successful completion will terminate with a +» or the message 

TBL FULL 

will be emitted. 

4. 1. 24 Z — data unbreak. 

FORMAT: 

Z 

will cancel all data-data break commands. A hyphen will be emitted. 

FORMAT: 

Z<data specif ication> 

will cancel the data break specified. It will emit a hyphen or the 
message 

NOT IN TBL. 
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4. 2 OPERATION COMMANDS : ARITHMETIC UTILITIES 

4. 2. 1 ARITHMETIC CALCULATING FEATURES 

FORMATS: 

ADDD n n 

SUED n n 

MULD n n 

DIVD n n 

ADDX n n 

SUBX n n 

MULX n n 

DIVX n n 

XTD n 

XTD n n 

DTX n 

DTX n n 

do the same things as the related verbs* uihere XTD <Z~> RTD and DTX <=> 
DTR. The numeric arguments. n» are strings without punctuation. 



lb 
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4. 3 DATA SPECIFICATION 

Data may be referenced directly or indirectly. It may be referenced 
numerically or symbolically. Windou or offset may be specified. 
Display type> C> I' X> or B may be specified. 

4. 3. 1 Direct reference. 

FORMAT: 

f f . dd 

will reference the data field at dd in frame ff. 

FORMAT: 

dd 

will reference the data field at dd in the PCB> or in the ME-PCB. In 
both cases the frame will be taken to be unlinked. 

FORMAT: 

/ff. dd 

will take ff to be a linked frame. 

4. 3. 2 Indirect reference. 

Indirect reference includes all cases wherein a live register is 
specified* including all symbolic references* or where an ♦SR form is 
specified. 

4.3.2.1 Implicit indirect reference. 

FORMAT: 

Rn 

where n eCO* 153 will reference the data to which Rn points. 

FORMAT: 

/symbol-name 

where symbol-name is in the PSYM or TSYM* and the PSYM and TSYM 
are "set", will generate the reg&iter number* displacement* 
format type and window of the symbol. It will be referenced 
through the implicitly-specified register and displacement. 

4.3.2.2 Explicit indirect reference. 

FORMAT: 

*symbol-name 

will reference the data which the register Rn. if the symbol name 
is Rn* or the storage register at symbol-name* points. 

FORMAT: 

Rn. dd 
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will apply the displaceinent< dd> to the location pointed to by Rn 
in order to obtain a storage register* with which to address the 
desired data. 

FORMAT: 

*ff. dd or «dd 

will take the location specified to be a storage register, and 
behave as above. The displacement* dd, will be applied to the 
frame address in order to find the address of the storage 
register. 

FORMAT: 

««symbol~name or »»f f. dd or *dd 



r 



will do the same in the second order. They reference the storage I 
at which the storage register at which the referenced storage ■ 
register points, with the one condition: That if the first byte 
of the medial storage register is X'82', then the element is 
taken to be a BASIC indirect string element and the storage 
register is taken from two bytes beyond this location. If any of 
the data fields are invalid as storage registers, then the 



message 

ERR! 

will be emitted. 

4. 4 FORMAT SPECIFICATION 

If any of the above forms are preceeded by the character C, I, or X, 
then that will control the format of the display. C means Character, 
I means Integer, and X means heXidecimal. 

4. 5 WINDOW SPECIFICATION 

If the above location specifications are succeded by a semi-colon, 
then a window is to be set by the form 

; n |- 

where n is a tally for display or a half-tally for the Trace and Y- ' 
trace. 

I 
4. 6 OFFSET SPECIFICATION 

The offset specification occurs in conjunction with the window. It I 
has an explicit form and an data-field form. ^ 

4.6.1 Explicit offsets. i 

FORMAT: f 

; o, w I 

where o is a positive or negative tally, and w is a positive number, r 
as above, then o will be an offset from the location specified in the 
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data reference section of data specification. W uill be the uiindow 
used. This form works for traces* except in the case that the 
location is an indirect reference from a storage register whose 
location is specified by the form f f . dd. 

4.6.2 Implicit offsets. 

FORMAT: 

; Co or i Co> w 

inhere o and ui are as above> and C eZBiH> Ct7> D> F, S, Rl, will cause the 
offset to be taken as the number of fields. The field width is 1 bit 
in the case of B» 1 byte in the case of H and C» 2 in the case of 7, 4 
in the case of D/ 6 in the case of F and S* and 8 in the case of R. 
may be positive or negative. If the window is not inluded> then the 
implicit window deriving from the field type is used* else the 
specified window is used. 

There are further side-effects to this form. The case of 

iC 

where C is as above* will take an offset of zero* the implied window 
and the display type. Note that symbolic reference to data fields has 
the same effect. 

The display-type may be superceeded by a leading format specification 
of the set C* I, or X. 

In the specific case of bits* the form 

* Bo* w 

will cause the display to be in bits* starting at bit o* the offset 
from the addressing base* for a width of w bits. Bits and bit fields 
may be traced with either trace. There is a further asymmetry here. 
The displacement specified for a symbollical ly-addressed bit is in 
bits. Therefore* the form ff. dd will treat dd as a bit-count in the 
direct-reference form. 

4. 7 DISPLAY MODIFIERS 

In general* the display modifiers which follow the semi-colon may 
exibit some excentric behavior because of various logical and 
functional colisions. 

4. 8 DISPLAY FORM 

The character S is used to indicate null. The general forms work for 
the display form* and* mostly* with the trace forms. 

T U Y Z e Trace commands 

X C I e Format specifiers 

/ * »« symbolic* indirect references 

dd . dd PCB direct reference I E* N* ME commands 
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ff. dd 
. f f. dd 



ff, dd 
. f f , dd 



f f . f f 
symbol-name 



n i . 


n 


o» n 


} o. n 


. 0, n 


i . o. n 


-o> n 


; -0. n 


B 




Bo 




Bo» n 




B. n 




C 




H 




Co> n 




T 




To 




To/ n 




T, n 




D 




Do 




Doi n 




S 




F 




So 




R 




Ro 





direct reference 
(frame in hex) 



! D, G, L, A 
! commands 



D command only 

with / or ♦ or ** ! L» A commands 

windouif offset and type specifiers. 

uindow must be positive^ offset may be negative. 

the format specifier at the beginning of the 

string will superceed the type specifier. 



uiindouf specification: n bytes 
offsets o byteS) window> n bytes^ 



decimal or hex 



bit display* offset 0* window 1 bit 
ibid/ offset o 
offset oi window n> in bits 
offset 0, window n> in bits 
character type# window 1, offset O 
integer type> window It offset 
window n> offset o bytes> et cetera, 
integer type> window 2< offset 



tallys = 2«o bytes, 
tally s. 



window 2. offset o 

window n, offset o 

window n> offset 

integer/ window 4 

window 4> offset o 

window 4. offset o 

type X, length 6 

integer type* length 6 

window 6, offset o ftlys = 6»o bytes 

hex type* length 8 

window 8, offset o — 8*o bytes 



dtlys 
dtlys 



4#o bytes 
4*0 bytes 



FORMAT: of the suffix is the same in all 
permutations are left out due to redundancy. 



cases. 



A number of 



r 
r 
I 

r 
( 
r 
I 
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4. 9 DISPLAY PROMPTS 

The value of data fields are changed after they have been displayed 
using the devices in the previous section. This section considers the 
actions avaliable at the '=' prompt given by the display prosessor. 

4.9. 1 <CR> — back to the command processor 

FORMAT: 

<CR> 

carriage-return will return to the command processor. 

4. 9. 2 <LF> — the next window 

FORMAT: 

<LF> 

line-feed> will display the next window of data^ on the same line. 

4. 9. 3 <control-N> — the address and the next window. 

FORMAT: 

<control-N> 

will display the address of the next window and the next window on the 
next line. 

4. 9. 4 <control-P> — the address and the previous window. 

FORMAT: 

<control-P> 

will display the address of the previous window and the previous 
window on the next line. 

4.9.5 '<string> — character data 

FORMAT: 

'<string> 

will cause the characters in the <string> to be placed in the data 
area starting at the beginning of the displayed window for the length 
of <string># which will not exceed 40 bytes. The string must 
terminate with CR> LF* control-N* or control-P. The string 
terminators noted hereinafter have the same effect as the same 
character used as the only response to the display prompt. 

4. 9. 6 INTEGER INSERTION 

FORMAT: 

<decimal number> 
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ufill cause the value of <decifnal number> to be placed in the uindou 
displayed/ filling from the rights if the windoui is 1. 2, 4/ or 6 
bytes in lengthi and does not cross a frame boundary* else an error 
message will occur. The string must terminate with CR* LF* control-Ni 
or control-P. 

4. 9. 7 HEX I DECIMAL STRING INSERTION 

FORMAT: 

. <hex string> 

will cause the value of the data area beginning at the left of the 
window displayed to be replaced by the hex string. The string must 
contain an even number of characters* and must contian only hex 
characters. The string will not have more than 38 hex characters in 
it. The string must terminate with CR» LF» control-N or control-P. 

4. 9. 8 BIT STRING INSERTION 

If the display type is bit* 

FORMAT: 

<binary string> 

where <binary string> is a sequence of I's and 0' less than 40 
characters long* will cause the bits starting from the first bit in 
the displayed window to be replaced by the bits in the string. The 
string must terminate with CR. LF* control-N or control-P. 

4. 9. 9 CLEARING WINDOWS 

FORMAT: 



will have the effect of clearing the window to null* if the type is 
not bit. It must be followed by CR. LF* control-N or control-P. 

4. 9. 10 ADDRESS DISPLAY 

FORMAT: 

A 

will display the address of the last window* and redisplay the last 
window. 

4.9.11 DISPLAY TYPE, WINDOW, AND OFFSET MODIFICATION 

FORMAT: 

C or Cn or Co, n 

will change the display type* window and offset, if specified, and 
redisplay either the original field with the new type or window 
specification, or the resultant field if the offset is modified. The 
string must be followed by a CR or LF, both of which leave one in the 
display mode, and on the next line. 
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The legal display types are C, character^ 1/ integer. X. hexidecimal> 
and Bt bit. Transfers to and from bit have the effect of byte- 
alignment in either direction, and retaining the numerical size of the 
window, which is then interpreted either in bits or bytes. 

The window specification sets the window at the new size. 

The offset specification is in bytes or bits, depending on the type 
specified, may be positive or negative, in hex or decimal, and simply 
redirects the data specification pointer to a new location. 

The intent of this is to mainpulate type and window in display mode 
quickly and simply. 
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